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IDENTIFICATION 


PRODUCT CODE: AC -F 756C -MC 

PRODUCT NAME: CVDRCCO DRV11J DIAG TST PRT} 
DATE CREATED: AUGUST 1985 

AUTHOR : BILL HEAVEY 

MAINTAINER: DIAGNOSTIC ENGINEERING 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. OIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS MANUAL. 


THE SOFTWARE DESCRIBED IN — DOCUMENT IS FURNISHED TO THE PURCHASER 
UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 
(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 
SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
—_ OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED By 
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ABSTRACT 


THE ORV11-J IS A GENERAL PURPOSE PARALLEL INTERFACE FOR THE 
LSI-11 BUS. IT HAS A BASIC CONFIGURATION OF 64 TRI-STATE IN/OUT 
LINES DIVIDED INTO FOUR GROUPS OR PORTS OF 16 BIT WORDS. 


THERE ARE TWO 4K DIAGNOSTICS FOR THE DRV11-J OPTION 

THE ORVil-J DIAGNOSTIC TEST PART 1 CF 2 CONTAINS A 

SERIES OF TESTS WITHOUT DRV11J INTERRUPTS DESIGNED TO TEST ALL 
LOGIC FUNCTIONS AND DATA PATHS MADE ACCESSIBLE WITH THE LOOPBACK 
CABLE INSERTED INTO THE DRV11-J/ I/O CONNECTORS. 


THE DRV11-J DIAGNOSTIC PART 2 OF 2 IS A SERIES OF TESTS 
WITH ORV11J INTERRUPTS DESIGNED TO TEST ALL LOGIC AND DATA PATHS 
por oe.” age WITH THE LOOPBACK CABLE INSERTED INTO THE [70 


THE ORV11-J IS CONTAINED ON A DOUBLE HEIGHT MODULE. 
THE MODULE CONTAINS TWO SO PIN CONNECTORS FOR INTERFACING 
TO EXTERNAL USER DEVICES. 


FOR DIAGNOSTIC TESTING, THE DRV1i1-J CABLECBCOSW-02) MUST 
BE INSTALLED WITH 1/2 TWIST BETWEEN THE SO PIN CONNECTORS. 


ee ee 


;3GPA 
NOTE: THIS DIAGNOSTIC HAS BEEN MODIFIED TO RUN IN KXTil (SBC 11721) 


;;GPA 


SRESSESSSASASHSESESHESSEASASCASEASSESEEASHSESEESEAESESEESSESSESHESSS*SECEESSESES 


e 
; e 
¢ BASED SYSTEMS. THE PROGRAM WILL AUTOMATICALLY ADJUST ITSELF TO RUN « 
e IN THE APPROPRIATE ENVIRONMENT AS FOLLOWS: « 
& ® 
“ LSI-11. 11/72, AND 11/723 SBC 11/721 * 
oe .}.}.§ | wees eseseeseceeseesese=s jj eeenvecee & 
« CSR RANGE: 160010 TO 177760 174000 TO 177760 . 
« PROGRAMMABLE... B 
« ...VECTOR RANGE: 0000 TO 1774 000 TO 374 e 
ry ry 
* e 


REQUIREMENTS 


EQUIPMENT 


1. POP11/03,11/23 COMPUTER OR ual 11 PROCESSOR 
WITH A MINIMUM OF 4K MEMORY 


2. SERIAL LINE INTERFACE AND CONSOLE TERMINAL 
3. ORV11-J OPTION WITH A BCOSW-O2 CABLE 
STORAGE 

THE PROGRAM USES THE LOWER 4K OF MEMORY. 
LOADING PROCEDURE 
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USE STANDARD PROCEDURE FOR PDP 11 ABSOLUTE 
BINARY FORMATTED PAPERTAPES OR XxOP MEDIA 
(FILES WITH .BIC OR .BIN EXTENSIONS ONLY). 


STARTING PROCEDURE 


1. MAKE SURE THE DRV11-J CABLE IS INSERTED WITH 1/2 A TWIST 
ON THE I/O CONNECTORS OF THE DRV11-J OPTION. 
THIS WILL CONNECT PORT A TO PORT C AND PORT 6 TO POR? D. 


2. MAKE SURE THE DEVICE BUS ADDRESSES AGREE WITH THE DEFAULT 
VALUES DEFINED IN SECTION 7.1. IF NOT,CHANGE 
LOCATION(S) AS DESIRED VIA THE ‘ADDRESS/' ODT COMMAND. 


3. THE PROGRAM SHOULD ALWAYS BE STARTED AT 200. STARTING 
AT 200(200G OR .R CVDRCC UNDER XXDP+), THE PROGRAM 
INITIALIZES ITSELF PRINTS ITS IDCFIRST TIME ONLY) ANO 
THEN PRINTS THAT THE DRV11-J CABLE IS REQUIREDC(FIRST TIME 
ONLY) AND THEN PRINTS: SWR=XXXXXX  NEW= 


WHERE XXXXXX REPRESENTS THE CURRENT VALUE OF THE SOFTWARE 
SWITCH REGISTER. IF NO CHANGES ARE REQUIRED IN THE SWITCH 
REGISTER THEN JUST HIT CARRIAGE RETURN. 

IF CHANGES ARE REQUIRED, THEN A NEW VALUE MAY BE TYPED 
FOLLOWED BY A CARRIAGE RETURN. 

REFER TO SECTION 5.0 FOR SWITCH REGISTER OPTIONS. 


4. IF THE FOLLOWING ERROR OCCURS RIGHT AFTER STARTUP IT IS 
POSSIBLE THAT THE DRV11J/ LOOPBACK CABLE MAY NOT BE INSTALLED 
OR WAS NOT INSTALLED PROPERLY: 


REG READ/WRITE ER 

ERRPC TSTNUM BUSADR EXPCT RCVD 

002224 000002 *164160 100700 000700 

*BUSADR MAY BE DIFFERENT DEPENDING ON THE CSR OF THE ORV11U. 


SOFTWARE SWITCH REGISTER 


THE PROGRAM SWITCH DEFAULT MODE IS SWR = QO00000 
IF USING A VIDEO TERMINAL ,BIT 15 = 1CHALT ON ERROR) 
MAY BE HELPFUL IN KEEPING THE ERROR ON THE SCREEN. 


SWITCH OCTAL FUNCTION 

SW15=1 100000 HALT ON ERROR 

SW14=1 040000 LOOP ON TEST 

SW131 020000 INHIBIT ERROR TYPEOUTS 
SW11=1 004000 INHIBIT ITERATIONS 
SWO9=1 001000 LOOP ON ERROR 

SWO8 =1 O004XX LOOP ON TEST IN SWR <7-0O> 
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CONTROL 


1. 


2. 


THE SOFTWARE SWITCH REGISTER ‘SWREG’ (LOC. 176) CAN BE 
CHANGED BY USING THE ODT FACILITIES. 


THE SOFTWARE SWITCH REGISTER CAN BE CHANGED UNDER PROGRAM 
CONTROL BY TYPING THE ‘CONTROL € G’' KEYS. THIS 

KEYBOARD OPERATION WILL PRINT OUT THE CURRENT CONTENTS 
AND ACCEPT NEW OCTAL SWITCH REGISTER DATA TERMINATED 

WITH A CARRIAGE RETURN. 


ONCE THE ODT MODE HAS BEEN ENTERED BECAUSE OF AN 

ERROR CONDITION WITH BIT15 SET CHALT ON ERROR), STEP #2 
ABOVE IS OF NO VALUE, SO RESORT TO STEP #1 TO ALTER THE 
SOFTWARE SWITCH REGISTER IF DESIRED BEFORE TYPING 

‘P’ CCONTINUE). 


SE 4 900% 
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6.2.1 


6.2.2 


—- 


ERROR REPORTING 


ERROR COMMENT 


ALL ERRORS ARE ACCOMPANIED WITH AN ENGLISH LANGUAGE DESCRIPTIVE 
COMMENT AS TO THE TYPE OF FAILURE. FURTHER QUALIFICATION OF 

THE ERROR CAN BE OBTAINED IF NEEDED FROM THE COMMENT AT THE 
ERROR PC OR FROM THE TEST ITSELF. 


TO CONSERVE MEMORY SPACE FOR THE 4K PROGRAM MEMORY 
REQUIREMENT .REGISTER S (RS) IS RESERVED FOR THE 

$BDDAT LOCATION (1126). 

EXAMPLE: CMP $GDDAT,(RS) IS THE SAME AS CMP $GDDAT, $BODAT. 
ERROR DATA 

ERROR TITLE HEADING 


ERRPC  TSTNUM BUSADR EXPCT RCVD 
¥XXXXKX MXXAXKKX RAXKXK XAXRXXXK XAXKXXX 


ERRPC LISTING ADDRESS WHERE THE ERROR WAS DETECTED 
TSTNUM TEST NUMBER WHERE THE ERROR OCCURRED 

BUSADR DRV11J BUS REG ADDRESS OF CONCERNED OPERATION 
EXPCT DATA THAT WAS EXPECTED 

RCvO DATA THAT WAS RECEIVED 


ERROR TITLES 


REG TIMEOUT ER sREGISTER TIMEOUT ERROR 

REG READ/WRITE ER sREGISTER READ/WRITE ERROR 

IRR REG ER ; INTERRUPT REQUEST REGISTER ERROR 
ACR REG ER ;AUTOCLEAR REGISTER ERROR 

IMR REG ER : INTERRUPT MASK REGISTER ERROR 
ISR REG ER ; INTERRUPT SERVICE REGISTER ERROR 


CHIP STAT ER ;CHIP STATUS ERROR 


SED 0006 
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MISCELLANEOUS 


DRvii-J BUS ADDRESS MODIFICATION 

MODIFY LOCATION ‘$BASE' CADDR: 1244) If BASE BUS ADDRESS 

IS NOT 164160. 

XXDP/APT NOTES 

THIS DIAGNOSTIC DOES SUPPORT ACT AND APT ENVIRONMENTS. 
POWER FAIL 

A POWER FAILURE WILL CAUSE A RESTART MESSAGE ON POWER UP AT 
WHICH TIME THE PROGRAM IS RESTARTED CONLY ON SYSTEMS WITH 
NON-VOLATILE MEMORY AND WITH APPROPRIATE HARDWARE ). 


MULTIPLE DRV11J INTERFACE TESTING 


THIS PROGRAM DOES NOT “AUTO-SIZE” THE NUMBER OF DORV11J'S CONNECTED. 


THIS DIAGNOSTIC WILL TEST SEQUENTIALLY UP TO 4 DRV11J INTERFACES 
WITH CONTIGUOUS BUS ADDRESSES. THIS Is ale oe 

BY THE USER SETTING UP LOCATION ‘DEVM’' CADDR: 1246 

WITH A BIT MAP INDICATING WHAT INTERFACES ARE TO Be TESTED. 


I.E. BITO = 1 SAYS TEST 1ST DRV11J, 

BIT1 = 1 SAYS TEST 2ND DRV11J 

BIT2 = 1 SAYS TEST 3RD ORVI1J 

BITS = 1 SAYS TEST 4TH ORV11J 
1ST UNIT = STARTING CSRA 164160 $sDEVM = 1 
2ND UNIT = STARTING CSRA 164140 $DEVM = 3 
SRD UNIT = STARTING CSRA 164120 $DEVM = 7 
4TH UNIT = STARTING CSRA 164100 $sDEVM = 17 
RESTRICTIONS 


EXECUTION TIME 


EXECUTION TIME RANGES FROM ABOUT <5 SECONDS ON FIRST 
PASS WITH NO ITERATIONS TO <20 SECONDS WITH ITERATIONS 
ENABLED AFTER FIRST PASS,.PER DRV11J UNIT CONNECTED 

AN “END PASS” MESSAGE INDICATES ALL TESTS HAVE COMPLETED 
ON ALL SELECTED UNITS. 


SES OU? 
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GENERAL 


THIS DIAGNOSTIC CONTAINS A SERIES OF INDEPENDENT TESTS DESIGNED 
TO TEST LOGIC FUNCTIONS AND DATA PATHS OF THE DRVilJ OPTION. 
TESTING IS ACCOMPLISHED WITH THE AID OF THE 

DRV11J LOOP BACK CABLE PROVIDED FOR DIAGNOSTIC TESTING. 

A COMPLETE LIST OF TESTS IS AVAILABLE IN THE TABLE OF CONTENTS 
AT THE BEGINNING OF THE LISTING. THE COMMENT FIELD WITHIN 
EACH TEST CAN BE BENEFICIAL IN TEST UNDERSTANDING. 


TESTING WITH THE DRV11J CABLE ALLOWS FOR TESTING 
OF PORT A WITH PORT C AND THE TESTING OF PORT B 
WITH PORT D. 


TESTS T1-T22 REGISTER CHECKING 


THESE TESTS WILL WRITE/READ PORTS A TO C 

AND WRITE/READ PORTS B TO D WITH FLOATING 

ONES AND FLOATING ZEROS,GROWING ONES AND 
GROWING ZEROS AND DATA PATTERNS. 

TESTS ARE PERFORMED TO INSURE INTERACTION WITH 
CONNECTED PORTS AND NO INTERACTION BETWEEN 
UNCONNECTED PORTS. 


T22-T42 INTERRUPT CONTROL REGISTER CHECKING 


TESTS ARE MADE TO THE INTERRUPT CONTROL CHIP 

REGISTERS IRR,ACR,IMR AND LIMITED TESTING OF 
ISR REGISTER UNTIL INTERRUPTS ARE PERFORMED. 
TESTS ARE PERFORMED ON THE REGISTERS WITH 

FLOATING ONES,FLOATING ZEROS.GROWING ONES 

AND GROWING ZEROS. CHIP RESET CAPABILITIES 
ARE TESTED AS WELL AS UNIQUENESS OF REGISTERS 
WITHIN A CHIP GROUP AND THE UNIQUENESS OF 

ONE GROUP’S REGISTERS TO ANOTHER GROUP'S 

REGISTERS. 


TEST 43 - TEST STATUS BITS GINT,S2,$1.S0,GP1,GP2 


EXERCISE THE STATUS BITS S2.$1.S0 AND GINT FOR 

EACH GROUP CHIP BY SETTING SINGLE IRR BITS TO CAUSE THE 
STATUS BITS TO GO FROM 120 TO 127. EACH IRR BIT 

IS THEN MASKED TO RETURN STATUS BACK TO ORIGINAL 
STATUS WITH NO IRR BITS SET. 


T44-T47 POLLED MODE TESTING 


THIS TEST WILL WRITE PATTERNS INTO DBRA WITH 
EITHER LOW TO HIGH OR HIGH TO LOW POLARITIES. 
AFTER PLACING ALL ONES IN DBRA AND THEN SELECTING 
ACTIVE LOW,CLEARING DOBRA WILL NOW SET IRR BITS 
0-7,GROUP 1 AND IRR BITSO-3,GROUP2. 


SED 9002 


11 
a 
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SE 9 9009 


377 THE RPLY SIGNALS WILL SET IRR BITS 4-7 

378 WHEN WRITING DBRA IN OUTPUT MODE, THIS WILL 
379 SET THE RPLY FOR DBRC.( 

380 WHEN READING DBRC IN INPUT MODE WILL SET 

581 THE RPLY FOR DBRA.CIRR BIT 4,GROUP 2) 

382 WHEN WRITING DBRB IN OUTPUT MODE, THIS WILL 
383 SET THE RPLY FOR DBROCIRR BIT7,GROUP2) 

584 WHEN READING DBRD IN INPUT MODE,.THIS WILL 

585 SET THE RPLY FOR DBRBCIRR BITS,GROUP 2). 

386 TEST ALL DATA PATTERNS TO SET IRR BITS 

387 GROUP1 AND GROUP2 AND FOR THE SETTING OF RPLY 
388 BITS IN THE GROUP 2 IRR REGISTER BY WRITING IN 
389 OUTPUT MODE AND READING IN INPUT MODE. 

390 TEST THAT NO RPLY BITS SET WHEN READING IN OUTPUT 
$4. MODE AND WHEN WRITING IN INPUT MODE. 

595 9.5 T50-T51 CSR'S WITH RESET 

394 SET UP CSR‘S IN OUTPUT MODE AND CLEAR 

395 DIRECTION BIT OUT OF EACH CSR EXCEPT FOR 
as. CSRA WHICH WILL CLEAR DIR BIT AND IZE BIT. 
598 10.0 LISTING 

i ee Le ee 
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000001 
160000 


165400 
000001 
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;;GPA HEADER t/CVDRCA ORV11U DIAG TST PRT1/,1979,t/BILL 4EAVEY/ 
3:JRS .HEADER t/CVDRCB DRV11J DIAG TST PRT1/,1979,t/BILL HEAVEY/ 
-TITLE CVORCC ORVilJ DIAG TST PRT1 

;*COPYRIGHT (C) 1979 

;#DIGITAL EQUIPMENT CORP. 

;#MAYNARD, MASS. 01754 


;* 
—— BY BILL HEAVEY 


 sTHIS PROGRAM WAS ASSEMBLED USING THE A oy 11 MAINDEC SYSMAC 
_——— (MAINDEC-11-DZQAC-C7), JUL, 1962 


STN©1 

$SWR=160000 sHALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TyYPOUT 

;# EDITED TO PERMIT DRV‘'S TO RUN ON FALCON (KXT11). ;;GPA 

“ G. PASQUANTONIO, JULY ‘81 3; ;GPA 

‘ REVISED TO seit FOR LONG CABLES € FILTERS 33JRS 
J. SUTTON, JULY ‘83 33JRS 

$SuR=165400 

- SBTTL OPERATIONAL SWITCH SETTINGS 

o SWITCH USE 

oc 7+;ié@iéi éi-8ese®=5) 7+—- +. °}4£4£42.xS§#S8¢8S eS eR ee Se eSe-+e 

3 * 15 HALT ON ERROR 

34 14 LOOP ON TEST 

3t 13 INHIBIT ERROR TYPEOUTS 

34 11 INHIBIT ITERATIONS 

;* : LOOP ON E 


RROR 
74 LOOP ON TEST IN SWR<7:0> 
. SBTTL BASIC DEFINITIONS 
;#INITIAL ADDRESS OF THE STACK POINTER ### 1100 ses 


STACK= 1100 

ERROR= EMT ;s;BASIC DEFINITION OF ERROR CALL 
SCOPE= IOT 3sBASIC DEFINITION OF SCOPE CALL 

; *MISCELLANEOUS DEFINITIONS 

HT= 11 ;;CODE FOR HORIZONTAL TAB 

LF= le ;;CODE FOR LINE FEED 

CR= 15 ;;CODE FOR CARRIAGE RETURN 

CRLF= 200 ;;CODE FOR CARRIAGE RETURN-LINE FEED 
+n anrnrs ;sPROCESSOR STATUS WORD 


3;STACK LIMIT REGISTER 

;;PROGRAM INTERRUPT REQUEST REGISTER 
SWR= ;sHARDWARE SWITCH REGISTER 

DOISP= 177570 3; ;sHARDWARE DISPLAY REGISTER 

;*GENERAL PURPOSE REGISTER DEFINITIONS 


RO= 0 ; ;GENERAL REGISTER 
Ri= 1 : sGENERAL REGISTER 
R2= ; ;GENERAL REGISTER 
R3= a3 ; ;,GENERAL REGISTER 
R4= 64 ;;GENERAL REGISTER 
R5= “5 ; ;GENERAL REGISTER 
R6= 86 | ERAL REGISTER 
R7= “7 R GISTER 


;GENERAL RE 
SP= %6  SSTACK POINTER 


SES 0010 


Lj 
4 
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BASIC DEFINITIONS 


000007 PC- s7 ;;PROGRAM COUNTER 
——apamgaay Se LEVEL DEFINITIONS 


SES O01] 


000000 0 ; ;PRIORITY LEVEL O 
000040 PR1i- 40 ; ;PRIORITY LEVEL 1 
000100 PR2= 100 ; ;PRIORITY LEVEL 2 
000140 PR3-= 140 ;;PRIORITY LEVEL 3 
000 PRG= 200 : ;sPRIORITY LEVEL 4 
000240 PRS= 240 ; ;PRIORITY LEVEL 5 
000300 PR6= 300 ; ;PRIORITY LEVEL 6 
000340 PR7= 340 ;;PRIORITY LEVEL 7 
3#"SWITCH REGISTER” SWITCH DEFINITIONS 
100000 SW15- 100000 
040000 SW14- 40000 
020000 SW13- 20000 
010000 SWle2= 10000 
SW1ili- 4000 
002000 SW10- 2000 
001000 SK09= 1000 
SWOS8= 400 
000200 SWO7= 200 
000100 SWO6= 100 
0 SWwO5= 40 
000020 SWO4 = 20 
000010 SWO3- 10 
SWO2= 4 
000002 SWOl= 2 
000001 SWOO= 1 
001000 SW9= SWO9 
000400 SwW8 = 
000200 SW7= SWO7 
000100 SW6= 
000040 SW5- SWwOos 
SW4 = SwO04 
000010 SwW3= SWO3 
000004 SWe= SwWO02e 
000002 SWi= SWwO1 
000001 a 
3;@DATA BIT DEFINITIONS (BITOO TO BIT15) 
100000 Ti5= 100000 
040000 BIT14= 40000 
SIT13= 20000 
010000 BITi2= 10000 
004000 BITi1l= 4000 
BITi0- 
001000 BITO9= 1000 
BITOS= 400 
BITO7= 
000100 BITO6= 100 
BiTOS= 40 
BITO4= 
000010 BTTO3S= 10 
BITO2= 4 
BITOl= 2 
BITOO= 
001000 BIT9= BITOS9 


000200 BIT7= BITO7 
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BASIC DEFINITIONS 


000100 
000040 


000260 
000340 


i 
i 
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BITOO 
; *BASIC sal TRAP VECTOR ADDRESSES 


ERRVEC= 


RESVEC= 10 
ks Na 
TRIVEC= 14 


;CHIP COMMAND SUMMARY 
CIRMR= 20 
CSIRMR= 


30 
40 


200 
240 


;:TIME OUT AND OTHER ERRORS 

; ;RESERVED AND ILLEGAL INSTRUCTIONS 
33"T" BIT 

3; TRACE TRAP 

; ;BREAKPOINT TRAP (BPT) 

:; INPUT/OUTPUT TRAP CIOT) #«*«SCOPEss 
; ;POWER FAIL 

; sEMULATOR TRAP CEMT) #*#ERRORses 
33;"TRAP” TRAP 

::TTY KEYBOARD VECTOR 

::TTY PRINTER VECTOR 

; sPROGRAM INTERRUPT REQUEST VECTOR 
;BASE ADDRESS 

;DEFAULT TO ONE DORV11J 


;CLEAR IRR AND IMR 
;CLEAR SINGLE IRR AND IMR BIT 


;CLEAR I 

;CLEAR SINGLE IMR BIT 
;SET ALL IMR BITS 
;SET SINGLE IMR BITS 


;CLEAR IRR 

;CLEAR SINGLE IRR BITS 
;SET ALL IRR BITS 

;SET SINGLE IRR BITS 


by — PRIORITY ISR BIT 
é 
;CLEAR SINGLE ISR BIT 


;LOAD MODE BITS MO-M4 
;LOAD MODE BITS MS-M7 


;CHIP MODE BIT PRESELECTION 
MISR= 2 


MIMR= 
MIRR= 
MACR= 


;CHIP WRITE PRESELECTION 
300 


PACR= 
PIMR= 
PVMA= 


250 
254 


260 
340 


;PRESELECT AUTO CLEAR REG. FOR WRITING 
;PRESELECT IMR REG. FOR WRITING 
;PRESELECT VECTOR MEMORY ADDRESS 


SES O01e2 
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461 
462 


000174 
000176 


000200 
463 
464 000100 
465 


N1 
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-SBTTL TRAP CATCHER 


000000 -* 
oaea UNUSED LOCATIONS FROM 4 - 776 CONTAIN A " "eae 
*#SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
. :¢LOCATION 0 CONTAINS O TO CATCH IMPROPERLY LOADED VECTORS 
000174 . 
000000 DISPREG: .WORD 0O ;;SOFTWARE DISPLAY REGISTER 
090000 : -WORD O ;;SOFTWARE SWITCH REGISTER 
-SBTTL STARTING ADDRESS(ES) 
poet dU 001402 ae @¢START ;;JUMP TO STARTING ADDRESS OF PROGRAM 
1 -* 
000104 900200 900002 -WORD 104,200,2 ;IF ‘B EVENT’ ON Q@ BUS IS CONNECTED 


; IGNORE IT'S INTERRUPT - JUST DO A RTI 


SEG 9015 
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ACTLIL HOOKS 


467 


000106 
000046 
013150 
000052 


000000 
000106 
001000 


MACRO M1200 7 DEC-83 09:55 PAGE 8 


.SBTTL ACT11 HOOKS 


FF SSSSSSSSSSSSSSESSSEHESSESSSHESESSSSSSSSSHSSSSSSESEHSSESESEHESEHSSESHSEHHEEEEHS 


sHOOKS REQUIRED BY ACT11 


$SVPC-. :SAVE PC 
246 

SENDAD :;1)SET LOC.46 TO ADDRESS OF SENDAD IN . 
“WORD 0 :32)SET LOC.52 TO ZERO 

-=$SVPC ;3; RESTORE PC 


sLONGEST TEST TIME 
31ST PASS RUN TIME 


;ADDITIONAL RUN TIME 

.SBTTL APT PARAMETER BLOCK 
3 § FAAS SSSEHSSSESSHEESASEASASEROESASSEHDASHSEAEESESHAESCESEESSEESEEEEEEEEEEE 
;SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 
3 § SHSSSSHASHSEESSSSEEESESESEEEASEHASSESESEESESASSEESEEESESESAEEEHEEEEESEE 

.$X=, 4 3SAVE CURRENT LOCATION 

,724 4 1SET POWER FAIL TO POINT TO START OF PROGRAM 

200 :3FOR APT START UP 

.244 —3;POINT TO APT INDIRECT ADDRESS PNTR. 

SAPTHOR ;;POINT TO APT HEADER BLOCK 

.*.$X  ;sRESET LOCATION COUNTER 
3 § SSSSSESSSSSHSEESSSSESSESESESESESHEHESESESESESEEESESESESEESEEESEBEE 
;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDP11 DIAGNOSTIC 
: INTERFACE SPEC. 


SHIBTS: .WORD 0 3;TWO HIGH BITS OF 16 BIT MAILBOX ADDR. 

$MBADR: .WORD ‘sMAIL ;sADDRESS OF APT MAILBOX (BITS 0-15) 

$TSTM: .WORD 6. 33RUN TIM OF LONGEST ots 

$PASTM: .WORD 20. 1 TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

SUNITM: .WORD 20. sADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
-WORD ‘sETEND- sMAIL/2 ;;LENGTH MAILBOX -ETABLEC WORDS ) 
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.SBTTL COMMON TAGS 


3 F SSHAHSSHHESHSSHESSSHESSESESEESESEEESOESEESEEEHEEEEEEHEEHHHEEHHEDEEOS 


;*THIS TABLE an. VARIOUS COMMON STORAGE LOCATIONS 


oooooooooorooocooco 


55588 


<< 
~ 4 
mm 


42/ 
<15> 
<12> 


Ci 
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;3START OF COMMON TAGS 
s sCONTAINS THE ig Oy NUMBER 


ERROR FLAG 
; | CONTAINS SUBTEST ITERATION COUNT 
;sCONTAINS SCOPE LOOP ADDRE 


OPE RETURN OR 
s;CONTAINS TOTAL ERRORS DETECTED 
;s;CONTAINS ITEM CONTROL BYTE 
;sCONTAINS MAX. ERRORS PER TEST 
:sCONTAINS PC OF LAST ERROR INSTRUCTION 
;;CONTAINS ADDRESS OF ‘GOOD’ DATA 
;;CONTAINS ADDRESS OF ‘BAD’ DATA 


;;CONTAINS ‘BAD’ DATA 
; ;RESERVED--NOT TO BE USED 


; sAUTOMATIC MODE INDICATOR 
; s INTERRUPT MODE INDICATOR 


;:;ADDRESS OF SWITCH REGISTER 
3 sADDRESS OF DISPLAY REGISTER 
s3TTY KBD STATUS 
s3TTY KBD FER 
s3TTY PRINTER STATUS REG. ADDRESS 
3:TTY PRINTER BUFFER REG. ADORESS 
3 :;CONTAINS NULL CHARACTER FOR FILLS 
;:CONTAINS @ OF FILLER CHARACTERS REQUIRED 
ss INSERT FILL CHARS. AFTER A “LINE FEED” 
33 "TERMINAL AVAILABLE” FLAG (BIT<0O7>=0-YES) 
33MAX. NUMBER OF ITERATIONS 

ADDRESS 


£ s SSSSSSSASSSSSSSSSESASSESESEEESEASEESESSSESSESEESASESSESESESSLEEEEOS 


.SBTTL APT MAILBOX -ETABLE 


£ § SSHSSSSSSSEAESSSESSSAEESEEAESSEHSSEAAESSESSESESESSEEEEESSESEEEEES 


-BYTE 


ise] 
~«< 
~ 
m 


3;APT MAILBOX 


MODE BITS 
33;APT SWITCH REGISTER 


D2 
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9S GOL4 


APT MAILBOX -ETABLE 


001214 000000 SUSWR: .WORD AUSWR ;;USER SWITCHES 
001216 000000 sCPUOP: .WORD ACPUOP ;;CPU TYPE,.OPTIONS 
;¢ BITS 15- 11*CPU TYPE 
;* 1170401, She te B ila 11740704,11745°05 
;° 11/770*06,PDQ-07 
ied BIT 10=REAL TIME CLOCK 
3* BIT 9=FLOATING POINT —_— 
;* BIT 8=MEMORY MANAGEMENT 
001220 000 $MAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS.M.S. BYTE 
001221 000 SMTYP1: .BYTE AMTYP1 ;:;MEM. TYPE,BLKe 
34 MEM. TYPE BYTE -- (HIGH BYTE) 
;* 900 NSEC CORE=001 
;* 300 NSEC BIPOLAR=002 
;* 500 NSEC M0S=0035 
001222 000000 $MADR1: .WORD #AMADR1 ;;HIGH ADDRESS,.BLKO1 
7 MEM.LAST ADOR.=3 BYTES, THIS WORD AND LOW OF “TYPE” ABOVE 
001224 000 : .BYTE AMAM ;;HIGH ADDRESS.M.S. BYTE 
001225 000 SMTYP2: .BYTE AMTYP2'~ ;;MEM.TYPE,BLKG@2 
001226 000000 $MADR2e: . ::MEM.LAST ADDRESS,BLKS2 
12 000 $MAMS3: .BYTE ;:HIGH ADORESS.M.S.BYTE 
001231 000 SMTYP3: .BYTE AMTYP3 fe ps Bs: 
001232 000000 $MADR3: . T ADDRESS ,.BLKOS 
001234 000 $MAMS4: .BYTE te ADORESS. M.S.BYTE 
001235 000 SMTYP4: .BYTE AMTYP4 ;;MEM.TYPE,BLK KO4 
001236 000000 3 . WORD 4 3::MEM.LAST ADDRESS, 
001240 000000 $VECT1: .WORD AVECT1 ;; INTERRUPT VECTOR®1,.BUS PRIORITY@1 
001242 000000 $VECT2: .WORD AVECT2 ;; INTERRUPT VECTOR@2BUS PRIORITY¢2 
001244 164160 $BASE: .WORD ABASE 3:;BASE ADDRESS OF EQUIPMENT UNDER TEST 
001246 1 $DEVM: .WORD ADEVM ; sDEVICE MAP 
ooteas $CDWi: .WORD ACDW1 ; ;CONTROLLER DESCRIPTION WORDO1 
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017022 
017154 
017276 
000000 


L 
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.SBTTL ERROR POINTER TABLE 


;*THIS TABLE CONTAINS THE INF 


;*THE INFORMATION IS OBTAINED BY USING 


HE INDEX NUMB OUND IN 

;*LOCATION $ITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINEN’. 
I O THE ONLY PERTINENT DATA IS (8ERRPC). 

EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 


;ERROR 


;ERROR 


;ERROR 


;ERROR 


;ERROR 


sERROR 


sITEMB IS 0 


ORMATION FOR EACH ERROR THAT CAN OCCUR. 


ER F 


;;POINTS TO THE aaen MESSAGE 


;sPOINTS TO THE 


sREG TIMEOUT ER 
sERRPC TSTNUM 
;SERRPC TSTNUM 


;REG READ/WRITE 
;ERRPC TSTNUM 
;$ERRPC TSTNUM 


;IRR REG ER 
sERRPC TSTNUM 
;$ERRPC TSTNUM 


;ACR REG ER 
;ERRPC TSTNUM 
;SERRPC TSTNUM 


;IMR REG ERROR 
;ERRPC TSTNUM 
;$ERRPC TSTNUM 


;ISR REG ERROR 
sERRPC TSTNUM 
;SERRPC TSTNUM 


;CHIP STAT ER 
;sERRPC TSTNUM 
;SERRPC TSTNUM 


; BUS REGISTER ADDRESS POINTERS 


HE DAT 


BUSADR 
$BDADR 


ER 
BUSADR 
$BDADR 


BUSADR 
$BDADR 


BUSADR 
$BDADR 


BUSADR 
$BDADR 


BUSADR 
$BDAOR 


BUSADR 
$BDADR 


A HEADER 
DATA 
DATA FORMAT 


EXPCT 
$GDDAT 


EXPCT 
$GODAT 


EXPCT 
$GDDAT 


EXPCT 
$GODAT 


EXPCT 
$GODAT 


EXPCT 
$GDDAT 


EXPCT 
$GODAT 


RCVO 
SBDDATCRS) 


RCvOD 
$BDDATCRS) 


RCvO 
$BDDATCRS ) 


RCvO 
SBODATCRS) 


RCVO 
$BDDATCRS ) 


RCvD 
sSBODATCRS) 


RCvD 
sBDDATCRS) 


SEG OO1? 


CVDRCC ORVLIIS CIAG TST PRTII 
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St 4 9014 


: ABASE+6 
ORCSC: ABASE+10 
C: ABASE+12 


;COMMON PROGRAM LOCATION: S) 


TSTNUM: O sCONTAINS TEST NUMBER ON ERROR 
DMAP : 1 

INTFLG: .WORD 0O 

XXDP : .WORDB O 

IMRLOC: .WORD O 

ISRLOC: .WORD 0O 

IRALOC: .WORD O 

ACRLOC: .WORD 0 


CvORCC ORVI1 CLAG TS! 


PROGRAM START 


543 
544 001402 


S4 

550 001666 
S51 001674 
S52 001702 
S53 001710 


$57 
558 001726 


001003 
012737 


005737 


PRT1 


001100 
001140 
001100 
yd on de 


177777 


001602 


000176 
000174 
000004 


001176 
000200 
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.SBTTL PROGRAM START 
START: 


-SBTTL INITIALIZE THE COMMON TAGS 
;;CLEAR THE COMMON TAGS (SCMTAG) AREA 


MOV @SsCMTAG,R6 ;:FIRST LC ATION TO BE CLEARED 
CLR CR6)+ ;;CLEAR MEMORY LOCATION 
CMP @SWR.R6E ; ;DONE? 


.-6 ;;LOOP BACK IF NO 
MOV #1100,SP ;3;SETUP THE STACK POINTER 
joi a A FEW VECTORS 


@$SCOPE ,@@IOTVEC ;;IOT oe FOR SCOPE ROUTINE 
MOV $340 ,Q@IOTVEC+2) ;;LEVEL 


MOV @sERROR ,.@GEMTVEC ;;EMT VECTOR FOR ERROR ROUTINE 
MOV 2340, BeEMTVEC +> 3;LEVEL 7 

MOV @$TRAP ,Bé@éTRAPVEC ‘ios VECTOR FOR TRAP CALLS 

MOV 8340, B@TRAPVEC +2;LEVEL 

MOV @$PWRDN , BOPWRVEC SS SOUER FAILURE VECTOR 

MOV 9340 BOPURVEC +2 ;;LEVEL 7 

CLR $TIMES ;s INITIALIZE NUMBER OF ITERATIONS 


CLR sESCAPE he re THE ESCAPE ON ERROR ADDRESS 

MOVB #1, SERMAX ;ALLOW ONE ERROR PER TEST 

MOV .. oe : INITIALIZE THE LOOP ADDRESS FOR SCOPE 
¢@., $LPERR ;SETUP THE ERROR LOOP ADDRESS 


MOV 
;;SIZE FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
;;EQUAL TO A “-1", SETUP FOR A SOFTWARE SWITCH REGISTER. 

MOV RROR VECTOR 


RRVEC.-(SP) ;;SAVE E 
MOV 964$,QOERRVEC ;;SET UP ERROR VECTOR 
MOV ODSWR, SWR ;;SETUP FOR A HARDWARE SWICH REGISTER 
MOV @DDISP ,OISPLAY + AND A HARDWARE DISPLAY REGISTER 
CMP @-1,8SWR 3s;TRY TO REFERENCE HARDWARE SWR 
BNE 66$ ;;BRANCH IF NO TIMEOUT TRAP OCCURRED 


3;AND THE HARDWARE SWR IS NOT = -1 
;;BRANCH IF NO TIMEOUT 
3;SET UP FOR TRAP RETURN 


;sPOINT TO SOFTWARE SWR 


65$% 
65% ,¢ SP) 
65%: MOV @SWREG.S 
MOV eOISPREG,D DISPLAY 
@eERRVEC 


66$ MOV (SP)+,@e€ ; sRESTORE ERROR VECTOR 
CLR $PASS ;;CLEAR PASS COUNT 
BITB @APTSIZE, SENVM TEST USER SIZE UNDER APT 
BEQ 67% 3:YES,USE NON-APT SWITCH 

ane MOV @$SWREG, SWR 3:;NO,USE APT SWITCH REGISTER 
CLR $F ATAL ;CLEAR ERROR NUMBER 
CLR $MSGTYP ;CLEAR MESSAGE TYPE 
CLR $TESTN ;CLEAR TEST NUMBER 
CALL FAL ; CHECK FOR FALCON (KXT11) ;3;GPA 
BEQ 1000$ ; BR IF NOT at ol —— ;;GPA 
BIC 640 ,8¢22 YES, STRAP IOT. ;3GPA 
BIC #40 ,8032 3...EMT. 3 3GPA 
BIC 040 ,8036 ;... AND TRAP TO LEVEL 6. 3 ;GPA 
CMP $BASE , @ABASE ; IS $BASE VIRGIN ?? 3; 3;GPA 
BNE 1000$ ; BR IF NOT 3; OPA 
MOV 174160, $BASE ; YES, USE ENGINEERING DEFAULT ;3GPA 


1000$: 3 3;GPA 
;CHECK OPERATING ENVIRONMENT 
TST av4e sARE WE IN ACT/XXDP AUTO MODE? 


SEQ 90019 


}-} 
- 
. 


te 
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559 001732 001410 BEG 1$ ;BRANCH IF NO 
560 001734 023737 000042 000046 CMP 9042 ,9046 :IS IT ACT AUTO MODE? 
561 001742 001410 BEQ 2s ;BRANCH IF ves 
562 001744 012737 177777 001370 MOV @-1,XxXOP ;SET XxXDOP CH/.IN MODE INDICATOR 
5635 001752 000404 BR 2s 
564 001754 123727 001210 000001 15%: CMPB SENV, #1 ;ARE WE IN APT AUTO MODE? 
565 001762 001005 BNE 3$ :BRANCH IF NO 
ast 001764 112737 000001 001134 23%: MOVB #1, $AUTOB ;SET AUTO MODE INDICATOR 
568 ;PRINT TITLE IF NOT IN ACT OR APT AUTO MODE 
569 001772 005227 177777 3$: INC @-1 sFIRST TIME? 
570 001776 001012 BNE S$ ;SKIP TITLE IF NO 
571 002000 005737 001134 TST $AUTOB ;ARE WE IN AUTO MODE? 
572 002004 001405 BEQ 4$ ;sBRANCH TO TITLE TYPEOUT IF NOT 
573 002006 005737 001370 TST xXDP :I1S THE AUTO MODE UNDER XxXDP? 
574 002012 001404 BEQ 5$ ;SKIP TITLE IF a 
575 002014 104401 016726 4$: TYPE » TITLED ;PRINT OUT THE T 
Hh 002020 104401 0167753 TYPE » TLCABL ;PRINT "“ORV11J CABLE REQ’ D” 
578 etd THE VALUE IN THE SOFTWARE SWITCH REGISTER 
579 002024 005737 001154 5$ TST s$AUTOB ;ARE WE IN AUTOMATIC MODE? 
580 002050 001001 BNE START1 ; BRANCH IF YES 
581 002032 104406 GTSWR ;ASK FOR SWR INPUT FROM CONSOLE 
582 002034 005037 001202 STARTi: CLR SUNIT ;CLEAR UNIT NUMBER 
583 002040 013737 001246 001364 MOV $DEVM, OMAP sPOSITION OF ORV11-J'S 
584 002046 042737 177760 001564 BIC #177760 ,0MAP ;UP TO 4 DRV11-J'S ONLY 
585 002054 013701 001244 MOV $BASE ,R1 ;GET BASE ADDRESS 
586 002060 010137 001342 MOV R1,DORCSA ;sMAKE BUS REG. POINTER = $BASE 
587 002064 032737 000001 0013564 BIT #1,O0MAP :IS FIRST ORVi1-J SELECTED? 
588 002072 001002 BNE NEXPAS ;YES 
589 002074 000137 013006 JMP NXDEV1 ;ADVANCE BASE ORV11i-J ADDRESS 
590 002100 012700 001342 NEXPAS: MOV #ORCSA,RO ;SET UP REGISTER ADDRESS POINTERS 
591 002104 010120 NEXPA1: MOV R1,CRO)>+ ;LOAD EM.R1 = DRV11-J CSRA ADDRESS 
592 002106 062701 000002 ADD $2,R1 3:00 POINTERS FOR ALL REGS. A THRU D 
593 002112 022700 001362 CMP @DRDBD+2,RO ;ALL DONE? 
594 002116 001372 BNE NEXPA1 ;B8R IF NOT 
595 002120 012706 001100 MOV @STACK,SP sALWAYS RESET —. 
596 002124 012705 001126 MOV @$BODAT RS :INIT RS WITH SBDDAT 
597 002130 013737 001202 001200 MOV SUNIT, $DEVCT ;LOAD APT COUNTER = UNIT NO. 
ze 002136 106427 000340 MTPS OPR7 ;SET PRIORITY TO 7 
600 
601 
602 ff APASORAAESEESEEESEAREESEEDEAEEEESEEROEDOEEEEE4E4EEEEDEDEDEEEDDDE 
;#TEST 1 TEST THAT ALL REGISTERS ARE ADDRESSABLE 
| f ARMARASSASEREAASRESEEAEEEEDSESERASEASEREREEEDEEEEESEEEEEEEDEDED 
002142 000004 TST1: SCOPE 
603 002144 005037 001124 CLR $GDDAT sNO DATA COMPARE 
604 002150 005015 CLR CRS) :NO DATA COMPARE 
605 002152 012737 002206 000004 MOV 02% ,BGERRVEC ;SET UP TIMEOUT RETURN ADORS 
606 002160 013700 001342 MOV DRCSA,RO ;SET UP 1ST DRV11 BUS ADRS 
607 002164 012701 000010 MOV 68.,R1i ;SET UP REG COUNT 
608 002170 010037 001122 1$: MOV RO, $BDADR ;SET UP CURRENT DRV BUS ADRS 
609 002174 005010 CLR CRO) ;SEE IF THERE 
610 002176 005720 TST CRO)+ ;BUMP TO NEXT 
611 002200 005301 R1 ;COUNT 8 OF THEM 


1 DEC 
612 002202 0014035 BEQ 3$ ;BR IF ALi DONE 


CvORCC ORVLI1J CIAG TST PRTL 
TEST THAT ALL REGISTERS ARE ADDRESSABLE 


Tl 


002204 
002206 
002210 
002212 


011015 


T ’ 


— 
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001124 
000001 


001124 


001124 


001124 
000001 


001124 


BR i$ ;TRY NEXT 
2s: CMP (SP)+,€SP)- sFIX STACK SINCE NO RTI 

ERROR+ 1 ;BUS ADRS INDICATED DIO NOT RESPOND 
3$: MOV MERRVEC+2,@@ERRVEC ;RESTORE LOC 4 
5 EAAAAAAEEEEEEEEEAEEEERASEREEESEREHEREEEDREDERSEEAEEOEAEEEREEEESS 
;#TEST 2 TEST CSRA W/R DIR BIT, INT. CHIP RESET STATUS 


§ FE ASSAESEEAESESSESEAEAESEEEEEAEARESEASEEEAAASEEEERESEEEESESEEEESEEEEAEEES 


TSTe: SCOPE 


MOV DRCSA,RO ;GET CSR ADDRESS 
MOV DRCSC,R1 ;STORE CSRC ADDRESS 
CLR CRO) ; INIT CSRA 
CLR (R1) s INIT CSRC 
MOV RO, $BDADR ;STORE CSR 
;SET UP EXPECTED DATA 

MOV #RDY (DIR! BIT7!BIT6, $GDDAT 
MOVB #BITO,1CRO) ;SET DIRECTION BIT 
MOV CRO),.CRS) ;GET CSR DATA 
BIC @7,CR5) ;CLEAR UNDEFINED BITS 
CMP $GDDAT, CRS) 
BEQ 100$ 
ERROR+ 2 ;CSRA ERROR 

100$: MOV R1,$B8DADR ;STORE CSRC ADDRESS 
MOV ¢BIT7, $GDDAT ;STORE EXPECTED 
MOV €R1),CRS) ;STORE CSRC 
BIC #7,C(R5) ;CLEAR UNDEFINED BITS 
CMP $GDDAT, CRS) 
BEQ 1$ 
ERROR+ 2 :;CSRC ERROR 

1$: MOV RO, $BDADR :CSRA ADDRESS 
MOV @RDY !BIT7!BIT6, $GODAT 
CLRB 1(€RO) ;CLEAR CSRA DIR BIT 
MOV CRO). CRS) ;READ CSR 
BIC »CR5S ;CLEAR UNDEFINED BITS 
CMP $GDDAT, CRS) 
BEQ 3;;8R IF EQUAL 
ERROR+ 2 

2s: MOV #BIT7!BIT6, $GDDAT 
MOVB &BITO,1CR1) sCSRC TO OUTPUT MODE 
MOV CRO), CRS) ;READ CSRA 
BIC #7,¢CRS) ;CLEAR UNDEFINED BITS 
CMP $GDDAT, CRS) ;CHECK IF RDY BIT CLEARED 
BEQ TST3 :;B8R IF EQUAL 
ERROR+ 2 ;CSRA REG ERROR 


££ PEMSSRESASSESSESESESASESSESSESASEDSSEASESEHSESEEEEESEKEEEESEAAEHEEEEEEES 


;*TEST 3 TEST CSRA INT. ENABLE BIT 
| | PRRASRESEREREEESEEEAAESEREEEEDEEEREAEREOAEEEEEEDEAE SEEDER DEERE 
TST3: SCOPE 
JSR PC ,CLRCSR ;CLEAR CSR REGISTER 
MOV DRCSA,RO ;GET CSRA ADDRESS 
MOV DRCSC .R1 ;GET CSRC ADDRESS 
MOVB #BITO,1(R1) ;SET DIRECTION BIT CSRC 
MOV .$ ;STORE CSRA ADDRESS 
MOV @BITS!BIT7!BIT6, $GDDAT 
MOV TE, CRO) ;SET INTERRUPT ENABLE BIT 
MOV CRO),CRS) 


CVDRCC ORV1i1J CIAG TST PRT1 
TEST CSRA INT. ENADLE BIT 
664 002456 

002462 


Ts 


714 


002712 


000007 
001124 


000300 
000001 


000007 
001124 
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001124 


001124 
000001 


001124 


001124 
000001 


1$: MOV 


Ie 
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#7,CR5) ;CLEAR UNDEFINED BITS 
S$GDDAT, CRS) 
1$ 
2 ; INT. ENABLE ERROR,CSRA 
#BIT7!B1IT6, $GDDAT 
1(RO) sCLEAR I/ZE BIT 
CRO),CRS) 
#7,C(R5) ;CLEAR UNDEFINED BITS 
$GDDAT,CRS 

4 ;;8R IF EQUAL 
2 ;CSRA ERROR 


£ f FHSAAARERASSAASASEAESSESEAESEAESESASEEREEEAESAFELASEAEEESEEESEEESEEE 


;#TEST 4 


TEST CSRA I/E,DIR BIT 


£ s PEAAAAESESAERERAESSSELESESLALESLEASEASEREEAAEESASESESEEAEEEEAEESEAES 


TST4: SCOPE 


1$: MOV 


PC ,.CLRCSR ;CLEAR CSR REGISTERS 
DRCSA,RO ;GET CSRA ADDRESS 


RO, $BDADR ;SAVE CSRA ADDRESS 
#101700,$GDDAT ;EXPECTED I/E,DIR 
#BIT1L!BITO,1CRO) 

;SET I/ZE AND DIR BIT 
CRO), CRS) 
7, ;CLEAR UNDEFINED BITS 
-< pattie 
2 s;CSRA ERROR 
@RDY 'BIT7!BIT6, $GDDAT 
CRO) 
CRO), CRS) 
#7,(RS) ;CLEAR UNDEFINED BITS 
$GODAT .CR5) 
TST5 ;;8R IF EQUAL 
2 ;CSRA ERROR 


5 fs PAHSEASESSSSSSESSAESEEASAESESLELELESESESEASESESESEESESASSEAESSSEEEEEEDS 


3;#TEST 


TEST CSRB W/R DIR BIT, INT CHIP RESET STATUS 


§ f SSASSESEESESEASAESESSESESEEAESSALESLESASSSSSSEEAEASESSEEESESALAEEEEE 


TSTS: 


100$: MOV 


1$: MOV 


PC,CLRCSR ;CLEAR CSR REGISTERS 
DORCSB RO ;GET CSR ADDRESS 
ORCSO,R1 ;GET CSRD ADDRESS 
RO. $BDADR ;STORE CSR ADDRESS 
@RDY!DIR.$GDDAT ;SET UP EXPECTED DATA 
6BITO,1i¢ ;SET DIRECTION BIT 
CRO),.CRS) ;GET CSRB DATA 
$GDDAT CRS) 
100$ 
2 ;CSRB ERROR 
R1, $BDADR ;STORE CSRO ADDRESS 
$GDDAT ;STORE EXPECTED 
CR1),CR5S) ;READ CSROD 
$GDDAT CRS) 

;CSRD ERROR 


2 R 
RO, $BDADR ;STORE CSRB ADDRESS 


CvDRCC ORV1I1IJ CIAG TS! PRTI 
TEST CSRB W/R OIR BIT, INT CHIP RESET STATUS 


TS 


012737 
105060 


100000 
000001 
001124 
001124 
000001 


001124 


013164 
001356 
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001124 


000001 


001124 
000001 


001124 


001124 


001124 
000001 


I< 
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V @RDY , SGDDAT ;STORE EXPECTED 
CLRB 1€R 0) ;CLEAR CSR DIR BIT 
MOV CRO), CRS) ;READ CSR 
CMP $GDDAT, CR5) 

BEG 2s ;;B8R IF EQUAL 
ERROR -+ 

2$: CLR $GDDAT ;STORE EXPECTED 
MOVB #BITO,1(R1) ‘CSRD TO OUTPUT MODE 
MOV CRO), CRS) ;sREAD CSRB 
CMP $GDDAT, CRS) ;RDY BIT CLEARED 
BEQ TST6 ;;B8R IF EQUAL 
ERROR+ 2 ;CSRB REG ERROR 


£ E SHSSAASASSEESEAESESEAAEAEBABEAEASESESESSESSADECELESEASESESEEESESE 


;#TEST 6 TEST CSRC W/R DIR BIT, INT CHIP RESET STATUS 


§ EPHEAAASRASARARASESASESESERABRERERERELEREEEEESEEASESEESEESEAEEEEEESE 


TST6: SCOPE 
JSR PC,.CLRCSR ;CLEAR CSR REGISTERS 
MOV DRCSC ,RO ;GET CSR ADDRESS 
MOV ORCSA,R1 ;GET CSRA ADDRESS 
MOV RO, $BDADR ;STORE CSR ADDRESS 
MOV ORDY !DIR!BIT7, $GDDAT 
MOVB @BITO,.1CRO) ;SET DIRECTION BIT 
MOV CRO), CRS) :;GET CSR DATA 
BIC #7,CRS) ;CLEAR UNDEFINED BITS 
CMP $GDDAT, CRS) 
BEQ 100$ 
ERROR+ 

100$: MOV 1, $B8DADR ;STORE CSR ADDRESS 
MOV wait? :BIT6, sGDDAT 
MOV CR1),CRS) ;sREAD CSRA 
BIC @7,(R5) ;CLEAR UNDEFINED BITS 
CMP $GDDAT,CRS) 
BEQ i$ ;CHECK CSRA 
ERROR- ;CSRA E 

1$: MOV RO, $BDADR :;STORE CSR ADDRESS 
MOV ORDY !BIT7, $GDDAT ; STORE EXPECTED _ 
CLRB iCRO) ;CLEAR CSR DIR BIT 
MOV pind F CRS) SREAD CSR 
BIC 7,CR5S) ;CLEAR UNDEFINED BITS 
CMP SGODAT, CRS) 
BEQ e$ ;;8R IF EQUAL 
ERROR+ 2 

2s: MOV #BIT7,$GODAT ;EXPECTED DATA 
MOVB @BITO,1(R1) ;CSRA TO OUTPUT MODE 
MOV CRO), CRS) ;READ CSRC 
BIC #7,CRS) ;CLEAR ve Eee BITS 
CMP $GDDAT,CRS) SRDY BIT CLEAR 
BEQ TST7 ;3;BR IF cA 
ERROR+ 2 ;CSRC REG ERROR 


5 5 SAAS EREAEAAEAAEESEEABREEREEESSEAEEESESASESESSEESESESESESESEALEEES 


;#TEST 7 TEST CSRD W/R DIR BIT, INT CHIP RESET STATUS 
5 _ARARAAEAAREREEERASEEELEAEAEAEOREEEEAEEEEAEADERERERES EASES EEREDDS 
TST7: SCOPE 

JSR PC,CLRCSR ;CLEAR CSR REGISTERS 

MOV DRCSD,RO ;GET CSR ADDRESS 


CvORCC ORVLI1IJ DIAG TST PRT1L 
TEST CSRD W/R DIR CIT, INT CHIP RESET STATUS 


tT? 


013701 


000004 
004737 
012703 
012737 


001346 
001122 
100400 
000001 


001124 
001122 
001124 
001124 


001122 
100000 
000001 
001124 


001124 
000001 


001124 


001124 


013572 


013164 


013272 
00 


3464 


MACRO M1200 


001124 
000001 


001124 
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001110 


001110 


| s 
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MOV DRCSB,R1 
MOV RO, $BDADR 
MOV @RDY ! DIR, $GDDAT 
MOVB #BITO,1CRO) 
MOV CRO), CRS) 
CMP $GDDAT, CRS) 
BEQ 100$ 
ERROR+ 2 

100$: MOV or 
CLR $GODAT 
MOV (R1), in>) 
CMP $GDDAT, CRS) 
BEQ is 
ERROR+ 2 

1$: MOV RO, $BDADR 
MOV ORDY , $GDDAT 
CLRB 1CRO) 
MOV CRO),CRS) 
CMP $GDDAT,.CRS) 
BEQ 2s 
ERROR + 

2s: CLR $GDDAT 
MOVB #BITO,1(R1) 
MOV CRO), CRS) 
CMP #GDDAT CRS) 
BEQ TST1 
ERROR+ 2 


;CSRB ADDRESS 
;STORE CSR 


ADDRESS 
;SET UP EXPECTED DATA 
;SET OIRECTION BIT 
;GET CSR DATA 


;STORE CSRB ADDRESS 
;STORE EXPECTED 


;CSRB ERROR 

;STORE CSRD ADDRESS 
;STORE EXPECTED 
;CLEAR CSR DIR BIT 
;READ CSR 


3;B8R IF EQUAL 


;EXPECTED 
;CSRD TO OUTPUT MODE 


;READ CSR 
;RDY BIT CLEARED 
;3;BR IF EQUAL 
;CSRD REG ERROR 


i - Lat A Anat! 


TEST DOBRA W/R IN OUTPUT MODE 


£ E PAASAASAASESSESASESESSEEEEASHSEBALESESESASEASALASESSEAASESEAEDEESESES 


;#TEST 10 

TST10: SCOPE 
JSR sth 
MOV @BEGPAT .R3 
MOV #13, $LPERR 
MOV ORCSA, 
MOV DROBA Ri 
MOV Ri, $BD 
MOvVB #BITO,1CRO) 
CLR 1) 
BIS CR3),CR1) 
MOV CR1),CR5S) 
CMP $GDDAT, CRS) 
BEQ s° 
ERROR+ 

2s: TST €R3)- 
CMP R3,@ENDDAT 
BNE 1$ 


;CLEAR ALL CSRS 
;GET DATA PATTERN TABLE 
;SET A ata ADDRESS 


;SET CSRA IN OUTPUT MODE 
;SAVE EXPECTED DATA 


;CLEAR DBRA 
;WRITE INTO DOBRA 
;READ DOBRA 
; CHECK W/R DOBRA 


;CHECK FOR END 
;D0 NEXT PATTERN 


ff SSSAARARASEASARAESESEEESEEEESESASELEAESEASERSESAEASESEDESASESESESEEE 


TEST OBRB W/R IN OUTPUT 


£ FSA SARAAAESERELEEEAESASEEAEEASESESAASEASEEASESEASERSESESESEREESESE 


s*#TEST 11 

TST11: SCOPE 
JSR PC,CLRCSR 
MOV @BEGPAT ,RS 
MOV #1$,$LPERR 


;CLEAR ALL CSRS 
;GET DATA PATTERN TABLE 
;SET UP SCOPE ADDRESS 


CVDRCC ORVIIJ CIAG TST PRT1L 


Til 


TEST OBRB W/R IN OUTPUT MODE 


003456 112760 1 000001 
821 011337 001124 
822 003470 11 


00 
29 003510 020327 013572 


2 
36 003530 012737 003560 001110 


003546 
0 003552 112760 000001 000001 


344 
845 003572 023715 001124 


849 003604 020327 013572 
50 001363 


850 003610 1 
851 
852 
855 
003612 
854 003614 737 013164 
855 012703 01327 


003620 2 
36 0035624 012737 003654 001110 
003632 36 


860 003646 112760 000001 000001 


MACRO M1200 


Me 
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MOV DRCSB,RO 
MOV R1 
MOV R1i,$ 
MOVB #B8ITO,1CRO) 
1$: MOV (R3),$GDDAT 
CLR (R1) 
BIS CR3),CRL) 
MOV €R1),CR5) 
CMP $GDDAT, CRS) 
BEQ 2s 
ERROR+ 2 
2$: TST CR3)+ 
CMP R3,@ENDDAT 
BNE i$ 


;GET CSRB 


_3GET OBRB ADDRESS 


;STORE DBRB ADDRESS 

;SET CSRB IN OUTPUT MODE 
;SAVE EXPECTED DATA 
;CLEAR DBRB 

;WRITE INTO DBRB 

;RE 


OR 
;INC FOR NEXT PATTERN 
;CHECK FOR END 
;D0 NEXT PATTERN 


5 { SAAAAEAEARAEAREASEASEAESEEEREAEEEAERERESERAASERABEAEEEEASEESEEESEEES 


;#TEST le 


TEST DBRC W/R IN OUTPUT MODE 


£ SAAR ERERESEAASERERABLARSEAEAEESABALEEESASEASEEEASEEEESEESEEAAEEESE 


TST12: SCOPE 
JSR PC.CLRCSR 
MOV @BEGPAT ,R3S 
MOV #1$,$LPERR 
MOV DRCSC RO 
MOV GROBC .R1 
MOV R1, $BDADR 
MOVE @BITO,1CRO) 

1$: MOV (R3), $GDDAT 


CR1) 
BIS CRS), CR1) 
MOV CR1),CRS) 
CMP $GDDAT , (RS) 


BEQ 2s 
ERROR+ 2 
2s: TST CR3)+ 
CMP R3, @ENDDAT 
BNE 


;CLEAR ALL CSRS 
;GET DATA PATTERN TABLE 
;SET UP SCOPE ADDRESS 


ORE DBRC ADDRESS 
;SET CSRC IN OUTPUT MODE 
;SAVE EXPECTED DATA 
;CLEAR DBRC 
;sWRITE INTO DBRC 


sREAD DBRC 
;CHECK W/R DBRC 
;NEXT PAT. IF EQUAL 


;00 NEXT PATTERN 


§ E SPEAAAAAESESEREASESAREEBASESEELELASESEESSESEALESSSESASESALEEESSEEE 


;#TEST 13 


TEST OBRD W/R IN OUTPUT MODE 


§ f PRAAAERASESSEAESELAEABABASARESSEASASSEESESLASASSESSAAEEASEASSSESEESEDRESD 


TST13: SCOPE 
JSR 


PC,.CLRCSR 

MOV GPAT ,R3 

MOV #1$,$LPERR 

MOV SD, 

MOV »R1 

MOV 1, $B8DADR 

MOVB oBit0, 1(RO) 
1$: ah (R3), $GDDAT 


C(R1) 
BIS (RS), CR1) 
MOV (R1),CRS) 
CMP $GDDAT, (RS) 


;CLEAR ALL CSRS 
sGET DATA PATTERN TABLE 
;SET UP SCOPE ADDRESS 


ORE DBRD ADDRESS 
;SET CSRD IN OUTPUT MODE 
‘SAVE EXPECTED DATA 
;CLEAR DBRD 
;WRITE INTO DBRD 
;READ DBRD 
;CHECK W/R DBRD 
sNEXT PAT. IF EQUAL 
;DBRD w/R ERROR 


SEG 0025 


=? 
a 
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SEQ 0076 
T13 TEST OBRD W/R IN OUTPUT MODE 
868 003676 005725 2$: TST (R3)+ ;INC FOR NEXT PATTERN 
869 003700 020327 013572 CMP R3,#ENDDAT _ ;CHECK FOR END 


870 003704 901365 BNE 1$ ;D0 NEXT PATTERN 


CvDORCC DRVIiJ CI4G TST PRIL 
TEST OBRD W/R IN OUTPUT MODE 


Tu3 


922 004124 


000004 
004737 


000004 
004737 


013164 


001122 
101700 


000007 
001124 
001122 
001124 
001124 
001122 
100400 
001124 


001122 
000200 


000007 
001124 


013164 


2 
101700 


00000 7 
001124 


MACRO M1200 


000001 
000001 


001124 


001124 


001124 


000001 
000001 


001124 


in 
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TEST CSR UNIQUENESS.CSRS (A-B8),(C 0) 


SF PSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSHSSSSSSSSSHESSHSSHSESHH HH HEHEEE 


;eTEST 14 


TST14: SCOPE 


JSR 


1$: MOV 


2s: 


3$: 


PC,.CLRCSR 


©3,10RO) 
oBITO,10R3) 
R ADR 
CRO), 
67,(RS) 
$GDDAT CRS) 
is 

2 
R1,$BDADR 
$GDDAT 


CR1),CRS) 
$GODAT CRS) 


$GDDAT , CRS) 
3$ 


< 

R2. $BDADR 
@BIT7, $GDDAT 
CR2),CRS) 
07,(RS) 
8GDDAT,CRS) 
TsT1is 


sCLEAR ALL CSRS 


sCSRD OUTPUT MODE 
;EXPECTED DATA 
;CLEAR UNDEFINED BITS 


;CSRA ERROR 
;CHECK CSRB 


;CSRB ERROR 


:CSRD ERROR 
sCHECK CSRC 
sEXPECTED 


338R IF EQUAL 
sCSRC ERROR 


fF SSSASSSSSASAEASESSESSESESEESSSESHESHESESASEHSSOEESEESSEHEEEHESHEEEESE 


TEST CSR UNIQUENESS.CSRS (A-0),(C-B) 


£ s SSSHSSSESSSSSHESSESESSESSEEHESESEASESEESSESSESSSEESEEEESESEEESEEEES 


;*TEST 15 


TST15: SCOPE 


JSR 


PC.CLRCSR 


#3,1(RO) 
oBITO,1(R1) 
ADR 


RO, $80 
#101700, $GODAT 
CRO),CRS) 
07,(RS) 

SGDDAT CRS) 

i$ 


sCLR ALL CSRS 
; = RO 


;CLEAR UNDEFINED BITS 


ORVIIS OL45 157 PRIL 
TEST CSR UNIQUENESS.CSRS (A-0),(C B) 


010137 
012737 


012737 
011015 


001122 
100400 


001124 
001122 
000200 
000007 
001124 
001122 
001124 
001124 


MACRO M1200 


001124 


001124 


001110 


001124 


001122 


Cz 
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27 DEC-83 

L$: MOV R1,$BDADR :;CHECK CSRB 

MOV 2100400, $GDDAT | 

MOV C(R1),CRS) 

CMP $GDDAT,(CRS) 

BEG 2s 

ERROR> 2 :;CSRB ERROR 
2s: MOV R2, $BDADR ;CHECK CSRC 

MOV OBIT7, $GDDAT 

MOV CR2),CRS) 

BIC @7,(R5) 

CMP SGDDAT (RS) 

BEQ 3$ 

ERROR+ 2 ;CSRC ERROR 
3$: MOV R3, $BDADR 

CLR $GODAT 

MOV CR3),CRS) 

CMP SGDDAT, CRS) 

BEG TST :;8R IF EQUAL 

ERROR+ 2 ;CSRD ERROR 


£ Fs SSSSASSSSHSSSHESESSHHASESEEASSESSSESESESSESSSSESSSSHESSEHEEESHEEESEE 


;*TEST 16 TEST PORT A TO PORT C INTERACTION 


SF SSSSSESESSHHSSESHSSSESESSSSHSSEESESEHEASESEEESEEESESEKEELEEEEHEEE 


TST16: SCOPE 
sCLEAR ALL CSRS 


@BEGPAT ,RS sGET DATA PATTERN TABLE 
MOV #13, $LPERR 3SET UP SCOPE ADDRESS 
MOV SA, ;GET PORT A, CSRA ADDRESS 
MOV ORCSC ,R1 ;GET PORT C, CSRC ADDRESS 
MOV ORCSB ,R2 
MOVB @BITO,1(R2) sCSRB_ IN OUTPUT MODE 
1$: MOV RO, $BDADR sSTORE CSRA ss 
CLR 2(R2) ;CLEAR 
CLRB 1(R1) sPORT C,CSRC, INPUT MODE 
MOVB @BITO,1(RO) :SET CSRA IN OUTPUT MODE 
MOV (R3), —? ;sWRITE INTO DBRA 
MOV 2(R1).R sREAD — 
MOV ORDY !O1R!BIT7!BI16, $GDDAT 
;CSRA DIR SHOULD STAY SET 
MOV CRO),CRS) sREAD CSRA 
BIC . sCLEAR UNDEFINED BITS 
CMP $GDDAT , CRS) 
BEQ 100$ 
ERROR+ 2 ;CSRA ERROR 
100$: MOV O8IT7, $GDDAT 
MOV R1,$8DADR :CSRC ADDRESS 
MOV CR1), CRS) sREAD CSRC 
BIC #7,(R5S) sCLEAR UNDEFINED BITS 
CMP + 1 he CRS) 
BEQ 101% 
ERROR ;CSRC ERROR 
101%: MOV DOROBC , $BDADR ;STORE DBRC ADDRESS 
MOV CR3), $GDDAT sSAVE EXPECTED 
MOV R4,CRS) ;DBRC CONTENTS 
CMP $GDDAT , CRS) ;CHECK PORT C,DBRC 
BEQ 2s :BEQ TO NEXT SUBTEST 


TEST PORT A TO 


104002 
005137 


013737 
013761 
05060 


DRVLIIJ CIAaG TS) PRIL 


0135572 


MACRO 1200 
PORT C INTERACTION 


001122 
000002 


001122 


001110 


001122 


2s: 


3$: 


4$: 


5$: 


D4 


, 
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2 
$GDDAT 


DROBA , $BDADR 
$GODAT ,2(R1) 
1(RO) 
oBITO,1(R1> 
2(RO),< RS) 
SGDDAT CRS) 
4% 


2 
DROBB . SBDADR 
$GODAT 
2(R2), CRS) 
nes 


2 
CR3)-+ 
_ 


;O0BRC REG ERROR 
;SET UP TO a DATA FROM 


sMAKE PORT A I MODE 

;MAKE PORT C OUTPUT MODE 

;READ PORT A,DBRA 

;PORT A =PORT C? 

;CHECK DBRB FOR NO DATA CHANGE 
STOR A,OBRA REG ERROR 


STORE DBRB ADDRESS 
;CONTENTS SHOULD STAY ZERO 
sREAD DBRB FOR CLEAR 

: CHECK FOR DBRB CLEAR 


3s YES,CONTINUE 
;OBRB ones gee ERROR 
;INC FOR NEXT PATTERN 


;CHECK FOR ENO. 
;D0 NEXT PATTERN 


£ F SSSHSSSSSSESSEHASSSSOSHSESEEASEEEEESESEDSESSESSEASESEESESESHESEEESEEEEES 


TEST PORT B TO PORT D INTERACTION 


s*TEST 17 


§ FS SSSSSSSESSSSEHSESSEESSESEEESESESASESESESSSSSEASSASEESHESAESEEEEEEEEE 


TST1?7: 


1%: 


1008: 


101%: 


2$: 


SCOPE 


DRCSA Re 
@BITO,1(R2) 
RO, SBDADR 


2(R2) 


i(R1) 
e6ITO,1(RO) 
CR3),2CRO) 


$GDDAT CRS) 
es 


2 
$GDDAT 


;CLEAR ALL CSRS 
sGET DATA PATTERN TABLE 
;SET UP SCOPE ADDRESS 


;CSRA IN OUTPUT MODE 

3ST SRB ss 

;CLEAR A 

PORT 0,.CSRO.I T MODE 

;SET CSRB IN OUTPUT MODE 

yt dy INTO DBRB 
CONTENTS 

S SAVE EXPECTED 

;READ CSRB 


;CSRB ERROR 
;SAVE EXPECTED 
;SAVE CSRD ADORESS 
;CSRO ERROR 
;SAVE DBRD ADDRESS 
sSAVE EXPECTED 

T 0,08RD 
;BEQ TO NEXT SUBTEST 


;DBRD REG ERROR 
;SET UP TO WRITE COM DATA FROM 


cP 67" 


CvDORCC ORV1I1 CIAG TST PRTI1 
TEST PORT B TO 


TL? 


013737 
013761 
105060 


012737 
011015 


013572 


MACRO M1200 
POR’ O INTERACTION 


ro 
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;PORT D TO PORT B 


001122 MOV DROBB , $BDADR 3ST DBRB ss 
000002 MOV SGDDAT ,2(R1 ) ;sWRITE PORT D,INPUT MODE 
CLRB 1(RO) ;MAKE PORT B INPUT MODE 
000001 MOVB #BITO,1(R1) ;MAKE PORT D OUTPUT MODE 
MOV 2CRO), CRS) sREAD PORT 8B, 
CMP $GDDAT, CRS) ;sPORT B =PORT D? 
BEQ 4$ ;CHECK DBRA FOR NO DATA CHANGE 
ERROR+ 2 ;PORT 8,O0BRB REG ERROR 
001122 4%: MOV DRDBA, $BDADR ;STORE DBRA ADDRESS 
CLR $GDDAT ;CONTENTS = O 
MOV tre). CRS) ;sREAD DBRA FOR CLEAR 
er $GDDAT,CRS) ;DBRA CLEAR? 
BEQ 5$ ; YES, CONTINUE 
ERROR- ;0BRA INTERACTION ERROR 
5$: TST (R3)-+ SINC FOR NEXT PATTERN 
CMP R3,@ENDDAT sCHECK FOR END 
BNE 1$ 3:00 NEXT PATTERN 
5p POMAAAEEEREREASEAAESESEDESESEREEEEAAEEESEEDEEEESEREREEAEREREEES 
;@TEST 20 TEST PORT C TO PORT A INTERACTION 
5 f MAAHASEDSOAEDESEEEEREOAESEAAEEEAEDESEEESSEAEAEESEEREDADESERACES 
TST20: 
PC .CLRCSR ;CLEAR ALL CSRS 
MOV @BEGPAT RS ;GET DATA PATTERN TABLE 
001110 MOV 01%, SLPERR ;SET UP SCOPE ADDRESS 
MOV ORCSC, RO ;GET PORT C, CSRC ADDRESS 
MOV ORCSA.R1 ;GET PORT A, CSRA ADDRESS 
MOV DRCSD ,R2 TORE CSRD S 
000001 MOVB @BITO,1CR2) ;CSRD IN OUTPUT MODE 
i$: MOV RO, $BDADR ;STORE CSRC ss 
CLR 2C(R2) DBRD 
CLRB 1CR1i) PORT A,CSRA, INPUT MODE 
000001 MOVB @BITO.10RO) ;SET CSRC IN OUTPUT MODE 
MOV €R3).2¢ ;sWRITE INTO DOBRC 
MOV 2(R1),R4 sREAD DBRA 
001124 MOV @RDY !DIR!BIT7, $GDDAT 
:CSRC DIR SHOULD BE SET 
MOV CRO). CRS) sREAD CSRC 
BIC @7,(R5S) ;CLEAR UNDEFINED BITS 
CMP stGDDAT,CRS) 
BEQ _ 
ERROR ;CSRC ERROR 
001124 100%: MOV <eIT7:OIT6. $GDDAT 
MOV Ri, $BDADR ;CSRA ADDRESS 
MOV (Ri), (RS) sREAD CSRA 
BIC @7,(R5) ;CLEAR UNDEFINED BITS 
CMP $GDDAT CRS) 
BEG 101% 
ERROR+ 2 ;CSRA ERROR 
001122 1018: MOV DROBA, SBDADR sSTORE DBRA ADDRESS 


MOV CR3), $GDDAT 
MOV R4,CRS) 


CMP $GDDAT, CRS) 
BEG es 
ERROR+ 2 


;SAVE EXPECTED 

;D0BRA CONTENTS 
;CHECK PORT A,DBRA 
;BEQ TO NEXT SUBTEST 
;DBRA REG ERROR 


SEG 


OU 40 


rT <4 
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SES 9041 
Teo TEST PORT C TO PORT A INTERACTION 
1085 005206 005137 001124 2s: COM $GDDAT ;SET = TO WRITE COM DATA FROM 
1086 sPORT A TO PORT C 
1067 005212 013737 001354 001122 MOV ORDBC , $BDADR ;STORE DBRC ADDRESS 
005220 013761 001124 900002 53%: MOV SGDDAT.2(R1) ;WRITE PORT A, INPUT MODE 
1089 005226 105060 000001 CLRB 1(RO) ;MAKE PORT C INPUT MODE 
1090 005232 112761 000001 000001 MOVB #BITO,1(R1) ;MAKE PORT A OUTPUT MODE 
1091 005240 016015 900002 MOV 2(RO), CRS) sREAD PORT —, 
1092 005244 023715 001124 CMP $GDDAT CRS) ;PORT C =PORT A 
1093 005250 00:401 BEQ 4$ ;CHECK DBRD FOR _* DATA CHANGE 
005252 ERROR+ 2 ;PORT C,OBRC REG ERROR 
1095 005254 013737 1 OO1ll22 4%: MOV DRDBD . $BDADR :ST DBRD 
005262 37 001124 CLR $GDDAT ;0BRD = O EXPECTED 
1097 005266 016215 MOV 2(R2),(CR5S) sREAD DBRD FOR CLEAR 
1098 005272 023715 001124 CMP $GDDAT CRS) IS DBRD CL 
1099 005276 001401 BEQ S$ :YES.CONTI 
1100 005300 104002 ERROR + ;DBRD INTERACTION ERROR 
1101 005302 005723 5$: TsT CR3)-+ ;INC FOR NEXT PATTERN 
1102 005 020327 013572 CMP R3, GENDDAT ;CHECK FOR END 
7) 005310 001261 BNE 1$ ;00 NEXT PATTERN 
1105 | f PPAREAEEEASEAESEESEAESAEESESESEREDAAEEREESSAAEAEEREEEEEHEOEEEES 
:*#TEST 21 TEST PORT D TO PORT 8 INTERACTION 
ff MAPAASARESEAESSEREEESEREEAEEROELASASEDSESESESAESEDEEES ESSERE ESS 
005312 TST21: SCOPE 
1106 005314 004737 013164 JSR PC.CLRC ;CLEAR ALL CSRS 
1107 005 012703 013272 MOV @BEGPAT .R3 ;GET DATA PATTERN TABLE 
1108 005324 012737 0053554 001110 MOV 1%, $LPERR sSET UP SCOPE ss 
1109 005332 013700 001356 MOV ORCSOD, ;GET PORT 0, CSRD ss 
1110 005336 013701 1 MOV ORCSB,R1 ;GET PORT 8. CSRB ADDRESS 
1111 005342 013702 001352 MOV ORCSC, STORE CSRC S 
1112 005 112762 000001 MOVB BITO,1¢(R2) :CSRC IN OUTPUT MODE 
1113 005354 010037 001122 1$: MOV . $BO ;STORE CSRD ss 
1114 005 005062 000002 CLR ) ;CLEAR DBRC 
1115 105061 000001 CLRB 1) :PORT 6,.CSRB,INPUT MODE 
1116 005370 112760 000001 000001 MOVB #BITO,1CRO) sSET CSRD IN OUTPUT MODE 
1117 005376 011360 000002 MOV CR3),2CRO sWRITE INTO DBRD 
1118 005402 016104 000002 MOV 2(R1),R4 sREAD DBRB 
1119 005406 012737 100400 001124 MOV @RDY!OIR,$GDDAT ;SAVE EXPECTED 
1120 005414 011015 MOV CRO), CRS) sREAD CSRD 
1121 005416 3715 001124 CMP $GDDAT .CRS) 
1122 005422 001401 BEG 100$ 
1125 0054 104002 ERROR+ 2 ;CSRD ERROR 
1124 005426 37 001124 100$: CLR $GODAT sSAVE EXPECTED 
1125 005432 010137 001122 MOV R1,$80 ;SAVE CSRB ADDRESS 
1126 005436 011115 MOV CR1),CRS) 
1127 005440 3715 001124 CMP GODAT,CRS5) 
1128 005444 001401 BEG 101 
1129 005446 104 ERROR + ;CSRB ERROR 
1130 005450 013737 001350 001122 101%: MOV DRDBB , $BDADR ;SAVE DBRB 
1131 005456 011337 001124 MOV CR3), $GDODAT ;SAVE EXPECTED 
il 010415 MOV R4,CRS) ;08RB CONTENTS 
115 023715 001124 CMP $GDDAT CRS) ; CHECK PORT 68,08RB 
1134 005470 001401 BEQ 2$ ;BEQ TO NEXT SUBTEST 
1135 005472 104 ERROR+ 2 ;0B8RB REG ERROR 
1136 005474 005137 001124 2s: COM $GDDAT 7: A Ls es DATA FROM 
; 
1138 005500 013737 001360 001122 MOV DRDBD , $BDADR ;STORE DBRD ADDRESS 


G5 
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Tel TEST PORT D TO PORT B INTERACTION 


SES G042 


1139 005506 013761 001124 000002 3%: MOV $GDDAT,2(R1) :;WRITE PORT 8B, INPUT MODE 

1140 005514 105060 000001 CLRB 1(RO) ;MAKE PORT D INPUT MODE 

1141 005520 112761 000001 000001 MOVB #BITC,1(R1) sMAKE PORT 8 OUTPUT MODE 

1142 005526 016015 000002 MOV 2(RO), CRS) :READ PORT D,DBRD 

1143 005532 023715 001124 CMP $GDDAT,CRS) sPORT B =PORT D? 

1144 005536 001401 BEG 4$ ;CHECK DBRC FOR NO DATA CHANGE 

1145 005540 ERROR+ 2 :PORT 0.0B8RD REG ERROR 

1146 005542 013737 001354 OOlli22 4%: MOV DRDBC , $BDADR ;STORE DBRC ADDRESS 

1147 005550 37 001124 CLR sSGDDAT ;EXPECT DBRC = O 

1148 005554 016215 000002 MOV 2CR2), CRS) ;READ DBRC 

1149 005560 023715 001124 CMP $GDDAT CRS) ;IS DBRC = O 

11 005564 001401 BEQ 5$ ; YES, CONTINUE 

1151 005566 1 2 ERROR+ 2 ; DBRC eared ane ERROR 

1152 005570 0057235 5$: TST CR3)>+ ;INC FOR NEXT PATTERN 

1153 005572 020327 013572 CMP R3,%ENDDAT S CHECK FOR END. 

ett 005576 001266 BNE 300 NEXT PATTERN 

1156 bE PARAEASESASSESSEASAEAASALAALEAEAEASEESASESEESASESESEREEEEEEDEEEES 
;*TEST 22 EST GROUP 1,2 IMR,IRR,ACR WITH CHIP RESET 
ff SPAS ASEESEASAAEAEASASEEALESESASEASAREEASEASEEESESEESEEEEOEEEES 

005600 TST22: SCOPE 

1157 005602 737 013164 JSR PC,CLRCSR ;CLEAR ALL CSRS 

1158 005606 012702 2 MOV @2,R2 ;TWO GROUPS TO TEST 

1159 005612 013700 001342 MOV ORCSA,RO ‘STORE CSRA 

1160 005616 013701 001346 MOV ORCSB,R1 ;STORE CSRB 

1161 005622 0047 013234 JSR PC ,,CLRIRR ;CLEAR IRR REGISTERS 

1162 005626 010137 OO1l2 111$: MOV » $BDADR ;STORE ADORESS 

1163 005632 012737 000377 001124 MOV #377, $GODAT a" EXPECTED DATA 

1164 005640 112710 00024 MOVB @MIMR , CRO) MODE BITS FOR IMR 

1165 005644 111115 MOVB CR1),CRS) READ IMR REGISTER 

1166 005646 023715 001124 CMP SGDDAT, CRS) 

1167 005652 001401 BEQ 

1168 005654 ERROR + ;IMR REG ERROR 

1169 005656 37 001124 1$: CLR AT ;STORE EXPECTED 

1170 112710 000 MOVB @MIRR , CRO) ;LOAD MODE BITS FOR IRR 

1171 111115 MOVB CR1),CRS) sREAD IRR REGISTER 

1172 005670 3715 001124 CMP $GDDAT, CRS) 

1173 005674 001401 BEG 

1174 005676 104003 ERROR + ;IRR REG ERROR 

1175 005700 112710 000254 2s: MOVB SMACR, (RO) ;LOAD MODE BITS FOR ACR 

1176 005704 111115 MOVB €R1),CRS) sREAD ACR REGISTER 

1177 005706 3715 001124 CMP $GDDAT CRS) 

1178 005712 001401 BEQ 3$ 

1179 005714 104 ERROR+ 4 :ACR REG ERROR 

1180 005716 3$: DEC Re sF INISHED BOTH GROUPS? 

1181 005720 001405 BEG TsT23 3;;8R IF EQUAL 

82 0057 013700 001352 MOV ORCSC ,RO 

1183 005726 013701 001356 MOV ORCSO,.R1 

tr 005732 000735 BR 111% 

1186 ff APRSASSASESESESESESESAESEEEABRESEEEAEEEEESEEESEASEEASEASESEEEEES 
;#TEST 23 TEST GROUPS 1 AND 2 ACR UNIQUENESS 
5 fF PPSRARAASESASSSSEASESESASEEASEESAESESEAEEESESEREDESOSEEEEEESHEEEE 

0057 000004 TST23: OPE 

1187 005736 004737 013164 JSR PC,.CLRCSR ;CLEAR ALL CSRS 

1188 005742 013700 001342 MOV DRCSA,RO ;CSRA ADDRESS 

1189 005746 013701 001346 MOV ORCSB,R1 :;CSRB ADDRESS 


nl 


Hs 
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0047 
23 —«* TEST GROUPS 1 AND 2 ACR UNIQUENESS — 
1190 005752 012703 000002 MOV #2,R3 ;COUNTER FOR TESTING TWO GROUPS 
1191 005756 004737 013234 JSR PC,CLRIRR ;CLEAR IRR REGS WITH CHIP RESET 
1192 005762 010137 OO1122 MOV R1, $BDADR 3ST 
1193 005766 012737 000252 001124 MOV @252, $GDDAT ;STORE EXPECTE 
1194 005774 112710 000254 MOVB @MACR CRO) ;LOAD MODE BITS FOR ACR 
1195 112710 MOVB @PACR CRO) ;PRESELECT ACR FOR WRITING 
1196 113711 001124 MOVB $GDDAT,CR1) ;sWRITE INTO DATA PORT 
1197 006010 111115 MOVE CR1),CRS) ;STORE DATA FOR COMPARE 
1198 006012 0235715 001124 CM $GDDAT, (RS) ;CHECK ACR RESULTS 
1199 006016 001401 BEG 1$ : 
1200 006020 104 ERROR+ 4 ;AC™ ERROR 
1201 006022 112710 000244 1$: MOVB @MIMR , CRO) ;CHANGE TO IMR REGISTER 
1202 006026 012737 000377 001124 MOV @377,$GDDAT ;STORE EXPECTED 
1203 006034 111115 MOVB CR1),CRS) ;READ IMR 
1204 006036 025715 001124 CMP $GDDAT CRS) ;SHOULD STILL BE ALL 1'S 
1205 006042 001401 BEQ 2$ 
1206 006044 104005 ERROR+ 5 ;IMR REG ERROR 
1207 006046 112710 000240 2s: MOVB — ;LOAD MODE BITS FOR ISR 
1208 006052 005037 001124 CLR $GDDAT ;STORE EXPECTED 
1 006056 111115 MOVB (R11), ag sREAD ISR 
1210 006060 025715 001124 CMP $GDDAT, CRS) ;ISR SHOULD BE CLEARED 
1211 006064 001401 BEQ 3$ 
1212 006066 104 ERROR+ 6 ;ISR REG ERROR 
1213 006070 112710 000250 3$: MOVB OMIRR, CRO) ;LOAD MODE BITS FOR IRR 
1214 006074 111115 MOVB CR1),CRS) sREAD IRR 
1215 006076 0235715 001124 CMP $GDDAT CRS) ;IRR SHOULD BE CLEARED 
1216 006102 001401 BEQ 
1217 006104 104003 ERROR + ;IRR REG 
1218 0061 5010 4$: CLRB ;CHIP RESET GROUP 1 
1219 006110 112710 000254 MOVB @MACR, CRO) ;LOAD MODE BITS FOR ACR 
1220 006114 111115 MOVB €R1),CRS) : ACR 
1221 006116 023715 001124 CMP SGODA T,CRS) ;ACR SHOULD BE CLEARED 
l222 006122 001401 BEQ S$ 
1223 006124 104 ERROR+ 4 ;ACR REG ERROR 
1224 006126 005303 5$: DEC R3 ;TEST GROUPS 1 AND 2 
1225 006130 001405 BEQ TST24 :3;8R IF BOTH GROUPS, TESTED 
226 006132 013700 001352 MOV DRCSC.RO ;GROUP 2 CONTROL PORT 
1227 006136 013701 001356 MOV DRCSD,R1 ; GROUP 2 DATA PORT 
yd 006142 000707 BR 111% ;TEST GROUP 2 ACR UNIQUENESS 
1230 ff PPRAAEASESEESEASAESESERESEAESEEOSESESAASESSEAEHEEAEEEDEDEREDEDED 
;#TEST 24 TEST GROUPS 1 AND 2 IMR UNIQUENESS 
ff PAREEAEEESEESEEAEEESASEEEEESESEAEAEAEESEEESEDEEEEEEEEEEEEDDDDED 

006144 000004 TST24: SCOPE 
123 :;GPA JSR PC,CLRCSR sCLEAR ALL CSRS 
1232 006146 004737 013234 JSR PC,CLRIRR 33 ##@ VORCA1 CHANGES THIS «ee ;;GPA 
1233 006152 013700 001342 MOV ORCSA,RO :CSRA ADDRESS 
1234 006156 013701 001346 MOV ORCSB ,,R1 ;CSRB ADDRESS 
1235 006162 012703 MOV #2,R3 ;sCOUNTER FOR TWO GROUP TESTING 

0061 010137 00112 111$: MOV R1, $BDADR sSTORE ADDRESS 
1237 006172 012737 000 001124 MOV #252, $GDDA sSTORE EXPECTED 
1238 006200 112710 000244 MOVB OMIMR , CRO) ;LOAD MODE BITS FOR IMR 
1239 006204 112710 000260 MOVB oPIMR ,CRO ;PRESELECT IMR FOR WRITING 
1240 006210 113711 001124 MOVB $GDDAT ,CR1) ;sWRITE INTO DATA PORT 
1241 006214 111115 MOVB CR1),CRS) ;STORE DATA FOR COMPARE 
1242 006216 023715 001124 CMP $GDDAT CRS) ;CHECK IMR RESULTS 
1243 006222 001401 BEG i$ : 


14 
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SEG 0034 
Tea TEST GROUPS 1 AND < IMR UNIQUENESS 

1244 006224 104005 ERROR+ 5 ; IMR ERROR 
1245 006226 112710 000254 1$: MOVB @MACR , CRO) ;CHANGE TO ACR REGISTER 
1246 006232 0050357 001124 CLR $GDDAT ;STORE EXPECTED 
1247 006236 111115 MOVB CR1),CRS) ;READ ACR 
1248 006240 023715 001124 CMP $GDDAT,CRS) ;SHOULD STILL BE CLEARED 
1249 006244 001401 BEG es 
1250 006246 104004 ERROR+ 4 ;ACR REG ERROR 
1251 006250 112710 000240 2s: MOVB @MISR, CRO) ;LOAD MODE BITS FOR ISR 
1252 006254 111115 MOVB CR1),CRS) ;READ ISR 
1253 006256 023715 001124 CMP $GDDAT, CRS) ;ISR SHOULD BE CLEARED 
1254 006262 001401 BEQ 3$ 
1255 006264 104006 ERROR+ 6 ;ISR REG ERROR 
1256 006266 112710 000250 3%: MOVB OMIRR, CRO) ;LOAD MODE BITS FOR IRR 
1257 006272 111115 MOVB CR1),CRS) sREAD IRR 
12586 006274 023715 001124 CMP $GDDAT CRS) ;IRR SHOULD BE CLEARED 
1259 006500 001401 BEG 4$ 
1260 006302 104005 ERROR+ 3 ;IRR REG ERROR 
1261 0063504 105010 4$: CLRB CRO) ;CHIP RESET GROUP 1 
1262 0063506 112710 000244 MOVB OMIMR , CRO) ;LOAD MODE BITS FOR IMR 
1263 006312 012737 000377 001124 MOV #377, $GDDAT sSTORE EXPECTED 
1264 006320 111115 MOVB CR1),CRS) sREAD IMR 
1265 006322 0235715 001124 CMP SGDDAT, CRS) ;IMR SHOULD BE ALL ONES 
1266 006326 001401 BEQ :00 NEXT GROUP 
1267 006330 104005 ERROR + 3° ;IMR REG ERROR 
1268 006332 005305 5$: DEC R3 300 GROUPS 1 AND GROUP 2 
1269 006334 001405 BEQ TsT25 + 3BR IF BOTH GROUPS TESTED 
1270 006336 013700 001352 MOV DRCSC RO ;SET UP TO TEST GROUP 2 
1271 006342 013701 0013556 MOV DRCSO,.R1 ;GROUP 2 DATA PORT 
i 006346 000707 BR 111% ;00 GROUP 2 IMR UNIQUENESS 
1274 5 SARSSAAEOAEEESESSESS CEEEEEESAEEESSESESEEEDASESEEEESEESEAEDEAEDE 

;#TEST 25 TEST GROUPS 1 AND 2 IRR UNIQUENESS 

ff PRRARERESESEEAESEEESEASASESERAREROASEEESAEAOARESEEEEEREEOEOEREEES 

006350 000004 TST25: SCOPE 

1275 006352 004737 013164 JSR PC,CLRCSR ;CLEAR ALL CSRS 
1276 006356 013700 001342 MOV DRCSA,RO ;CSRA ADDRESS 
1277 006362 013701 001346 MOV ORCSB,R1 ;CSRB ADDRESS 
1278 006366 012703 000002 MOV 62 ,R5 sCOUNTER FOR TESTING TWO GROUPS 
1279 006372 004737 013234 JSR PC,CLRIRR :;CLEAR IRR REGS WITH CHIP RESET 
1280 006376 010137 001122 1118: MOV R1, $BDADR ;STORE ADDRESS 
1281 006402 012737 000200 001124 MOV #200, $GDDAT sSTORE EXPECT 
1262 006410 112710 000250 MOVB OMIRR , CRO) sLOAD MODE BITS FOR IRR 
1283 006414 112710 000137 MOVE #137,CRO) ;SET SINGLE IRR BIT7 
1284 006420 111115 MOVB (R1),CRS) ;STORE DATA FOR COMPARE 
1285 006422 023715 001124 CMP $GDDAT CRS) ;CHECK IRR RESULTS 
1286 006426 001401 BEQ 1$ ; 
1287 006430 104003 ERROR- 5 :IRR ERROR 
1288 006432 112710 000244 1$: MOVB OMIMR , CRO) ;CHANGE TO IMR REGISTER 
1289 006436 012737 000377 001124 MOV @377, $GDDAT 1 STORE EXPECTED 
1290 006444 111115 MOVB CR1),CRS) 
1291 006446 023715 001124 CMP $GDDAT, CRS) } SHOULD STILL BE ALL 1’S 
1292 006452 001401 BEQ 2$ 
1293 006454 104005 ERROR+ 5S ;IMR REG ERROR 
1294 006456 112710 000240 2s: MOVB OMISR ,CRO) ;LOAD MODE BITS FOR ISR 
1295 006462 005037 001124 CLR $GDDAT ;STORE EXPECTED 
1296 006466 111115 MOVB CR1),CRS) sREAD ISR 


1297 006470 023715 001124 CMP $GDDAT,CRS) ;ISR SHOULD BE CLEARED 
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Tes TEST GROUPS 1 AND 2 


1348 006716 


013701 


001352 
001356 


013572 


001352 
001356 


001110 


001110 


3$: 


4$: 


5$: 


3$ 


6 
@MACR , CRO) 


CR1),CRS) 


$GDDAT,CRS) 
45 


CRO) 

@MIRR, CRO) 
(R1),CRS) 
oo 


3 

R3 

TST26 
DRCSC ,RO 
ORCSO,R1 
111% 


| 2 
a 
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IRR UNIQUENESS 


:ISR REG ERROR 
;LOAD MODE BITS FOR ACR 
;READ ACR 


;ACR SHOULD BE CLEARED 


;ACR REG ERROR 
;CHIP RESET GROUP 1 
LOAD MODE BITS FOR IRR 


; IRR 
;IRR SHOULD BE CLEARED 


;IRR REG ERROR 

; TEST GROUPS i AND 2 

;;BR IF BOTH GROUPS TESTED 
;GROUP 2 CONTROL PORT 

;GROUP 2 DATA PORT 

; TEST GROUP 2 ACR UNIQUENESS 


§ s PHRASAAASSHSASASASAASESESASEESESESEEASEESEASESRESESEEEAEAESEEEESEEEES 


TEST GROUPS 1,2 ACR WITH PATTERNS 


;#TEST 26 


£ ERPS SAAKASSASELSABRESEEADESASASAEESEAOESESEASESESEEESASESLESEEEAEEEESEED 


TST26: 


111%: 
1$: 


2$: 


SCOPE 


aa »CLRCSR 


2s 


;CLEAR ALL CSRS 
;TEST TWO GROUPS 


; STORE ADDRESS 

;SET UP PATTERN TABLE 
;STORE ADDRESS 

;LOAD MODE BITS FOR ACR 
;PRESELECT ACR FOR WRITING 
;STORE EXPECTED 

sWRITE INTO ACR 

;READ OUT OF ACR 


;ACR REGISTER ERROR 
INC 


;W/R NEXT PATTERN 
;FINISHED BOTH GROUPS? 
;:BR IF EQUAL 


;D0 NEXT GROUP 


§ f PARSAEAEEEEEERESEREREEEEESADEEREAEAESEEESEASEAERESEERADEDD ERODE 
TEST GROUPS 1,2 IMR WITH PATTERNS 


3#TEST 27 


£ F PeSEAAASSASEASEAASAESESEALESESSEASESSESESESEDESAAEESESESAEEESEEAESAEEES 


TSsTe7 


PC.CLRCSR 
#2,Re2 
#1$,$LPERR 


ORCSA,RO 
ORCSB,R1 


;CLEAR ALL CSRS 


;STORE CSRB ADDRESS 


SEG 0045 


|“ 2 
4 
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SEG 


OF Fe 


T27 TEST GROUPS 1,2 IMR WITH PATTERNS 

1349 006722 012703 013272 111$: MV @BEGPAT RS ;SET UP PATTERN TABLE 

1350 006726 010137 OO1i22 MOV Ri, $BDADR ;STORE ADDRESS 

1351 006732 112710 000244 1$: MOVB @MIMR , CRO) ;LOAD MODE BITS FOR IMR 

1352 006736 112710 000260 MOVB OPIMR, CRO) ;PRESELECT IMR FOR WRITING 

1353 006742 111337 001124 MOVB CR3), $GDDAT ;STORE EXPECTED 

1354 006746 111311 MOVB (R3),CR1) ;WRITE INTO IMR 

1355 006750 111115 MOVB CR1),CRS) ;READ OUT OF IMR 

1356 006 023715 001124 CMP $GDDAT CRS) 

1357 006756 001401 BEQ 2s 

1358 006760 104 ERROR+ 5S ; IMR REGISTER ERROR 

1359 006762 005725 2s: TST CR3)+ ;INC FOR NEXT PATTERN 

1 006764 020327 015572 CMP R3,MENDDAT ;CHECK FOR TABLE END 

1361 006770 001360 BNE ;W/R NEXT PATTERN 

1362 006772 0053502 DEC 2 ;F INISHED BOTH GROUPS? 

1363 006774 001405 BEQ TST30 ;;BR IF EQUAL 

1 006776 013700 001352 MOV DRCSC RO 

1365 007002 013701 001556 MOV DRCSD,R1 

Et: 007006 000745 BR 111$ :D0 NEXT GROUP 

1368 5 MAAREAAEEEESERASERESERESEEEEEREEEERSEREREEOEEEEREEEEREDERE REE EEDS 
;TEST 30 TEST GROUP 1,2 CLEAR IMR INSTR. 
|p AAAEAEARASASASESESAREEEEEAEEEEEREEREEERSEHESEESEAAEEEREFEREEREEES 

007010 TST3O: SCOPE 

1369 007012 004737 013164 JSR PC.CLRCSR ;CLEAR ALL CSRS 

1370 007016 012704 000002 MOV #2 ,R4 ;COUNTER FOR TWO GROUPS 

1371 007022 0135700 001342 MOV DORCSA,RO ;CSRA ADORESS 

1372 007026 013701 1346 MOV ORCSB..R1 ;CSRB ADDRESS 

1373 007032 010137 001122 111%: MOV R1, $BDADR ;STORE ADDRESS 

1374 007036 5037 001124 CLR $GDDAT ;EXPECTED DATA 

1375 007042 112710 000244 MOVB @MIMR , CRO) ;LOAD MODE BITS TO READ IMR 

1376 007046 112710 000040 MOVB @CIMR, CRO) ;CLEAR IMR COMMAND 

1377 007052 111115 MOVB CR1),CRS) ;READ DATA PORT 

1378 007054 023715 001124 CMP $GDDAT CRS) 

1379 007060 001401 BEQ 1$ 

1 007062 104005 ERROR- 5 sERROR IMR SHOULD BE CLEARED 

1381 007064 005304 1$: DEC R ;F INISHED BOTH GROUPS? 

1 7066 001405 BEQ TST31 ;;BR IF BOTH GROUPS TESTED 

1383 007070 013700 001352 MOV DRCSC ,RO ;SETUP FOR GROUP 2 

13864 007074 013701 001356 MOV DRCSO.R1 

1o 007100 7 BR 111% :00 IMR TEST WITH GROUP 2 

1387 | {PERERA EAESSEAESESESEALERESADARSESESLESERSSADASESESASAREREREREEEEE 
;*#TEST 31 TEST GROUP 1,2 SET IMR INSTR. 
5 f MOARERASASRESEREEASESHESASEHESEEEDASEOASESASHEEEEAREEHEREDEREES 

007102 TST31: SCOPE 

1388 007104 004737 013164 JSR PC,.CLRCSR ;CLEAR ALL CSRS 

1389 007110 012704 MOV #2 ,R4 ;COUNTER FOR TWO GROUPS 

1390 007114 013700 001342 MOV ORCSA,RO ;CSRA ADDRESS 

1391 007120 013701 001346 MOV DRCSB,.R1 ;CSRB ADDRESS 

1392 007124 010137 001122 MOV R1,$BOADR 3; STORE a eath 

1393 007130 012737 000377 001124 MOV 0377, $GDDAT ;EXPECTED DAT 

1394 007136 112710 000244 MOVB IMR , CRO) ;LOAD MODE BITS TO READ IMR 

1395 007142 112710 000040 MOVB @CIMR ,CRO) ;CLEAR IMR 

1396 007146 112710 000060 MOVB @SIMR, CRO) ;SET IMR C 

1397 007152 111115 MO CR1),CRS) ;READ DATA PORT 

1398 007154 023715 001124 CMP $GDDAT, (RS) 

1399 007160 001401 BEQ 1$ 


baw 
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SEQ 9047 
TS1 TEST GROUP 1,2 SE’ IMR INSTR. 
1400 007162 104005 ERROR+ 5 ;ERROR ,IMR SHOULD BE SET 
1401 007164 005504 1$: DEC R4 ;F INISHED BOTH GROUPS? 
1402 007166 001405 BEQ TST3e2 ;;8R IF BOTH GROUPS TESTED 
1403 007170 013700 001352 MOV DRCSC ,RO ;SETUP FOR GROUP ? 
1404 007174 013701 001556 MOV DRCSO,.R1 
po 007200 000751 BR 111% ;D0 IMR TEST WITH GROUP @ 
1407 5 f PASAAAAAERASASEAARESESEAESESALESESESSEEEESASEEEEESEHEEEEOEREEEDE 
;#TEST 32 TEST GROUP 1,2 CLEAR SINGLE IMR BIT INSTR. 
ff P#PAAAAHEEEAEAEASESESEREREESEEAEEERERAEESEREEEEEEEEEEEEEEEEEEDEDS 
007202 TST32: SCOPE 
1408 007204 004737 013164 JSR PC,CLRCSR ;CLEAR ALL CSRS 
1409 007210 012704 0900002 MOV 02,R4 s;GROUP COUNTER 
1410 007214 012737 007252 001110 MOV #1$,$LPERR ; SCOPE RETURN ADDRESS 
1411 007222 013700 001542 MOV DRCSA,RO sCSRA ADDRESS 
1412 007 013701 001546 MOV ORCSB,R1 ;CSRB 
1413 007232 010137 001122 111$: MOV R1, $BDADR ;STORE ADDRESS 
1414 007236 012703 0134 MOV @BGCHP4 ,RS ;GOO0D DATA PATTERN TABLE 
1415 007242 112710 244 MOVB OMIMR, CRO) ;LOAD MODE BITS FOR IMR 
1416 007246 012702 MOV @CSIMR ,R2 sCLEAR SINGLE IMR BIT VALUE 
1417 007252 1113357 001124 1$: MOVB CR3), $GDDAT ;STORE EXPECTED 
1418 007256 112710 MOVB @SIMR, CRO) ;SET ALL IMR BITS 
1419 007262 110210 MOVB R2,CRO) ;CLEAR SINGLE IMR BIT 
1420 007264 111115 MOVB CR1),CRS) sREAD DATA PORT 
1421 007 023715 001124 CMP $GDDAT, CRS) 
1422 007272 001401 BEQ 2s 
14235 007274 104 ERROR+ 5 ;IMR REG ERROR 
1424 007276 0057235 2s: TST CR3)+ ;INC EXPECTED DATA TABLE 
1425 007 020327 013456 CMP R3, #EDCHP4 ;CHECK FOR END 
1426 007304 001402 BEQ 3$ 
1427 007 005202 INC Re ;SET UP TO _y NEXT IMR BIT 
1428 007310 000760 BR 1$ ;CLEAR NEXT IMR BIT 
1429 007312 005 3$: DEC R4 3:00 GROUPS 1 AND 2 
1430 007314 001405 BEQ TST33 ;sBR IF BOTH GROUPS TESTED 
1431 007316 013700 001352 MOV DRCSC RO ;CSRC ADDRESS 
1432 007322 013701 001356 MOV ORCSD,.R1 ;CSRO ADDRESS 
as 007326 741 BR 111$ :00 GROUP 2 
1435 
1436 1seeee aa aeet Eee a? ant Ae De aT Deke 
;*TEST 35 TEST GROUP 1,2 SET SINGLE IMR BIT INSTR. 
§ { SHRASESEAARESESSASESLESAASELASESESEAEEASESESESASERESAASESASASASCESAEDES 
007330 TST33: SCOPE 
1437 007332 004737 013164 JSR PC,CLRCSR ;CLEAR ALL CSRS 
1438 007336 012704 MOV $2,R4 ;GROUP COUNTER 
1439 007342 012737 007400 001110 MOV #1$, $LPERR ;SCOPE RETURN ADDRESS 
1440 007 013700 001342 MOV SA, sCSRA ADDRESS 
1441 007354 013701 001346 MOV ORCSB ,R1 ;CSRB ADORESS 
1442 007360 010137 001122 111$: MOV R1, $BDADR ;STORE ADDRESS 
1443 007364 012703 013374 MOV @BGCHPS ,RS :GO0D DATA PATTERN TABLE 
1444 007370 112/10 000244 MOVB OMIMR , CRO) sLOAD MODE BITS FOR IMR 
1445 007374 012702 000070 MOV OSSIMR ,R2 ;SET SINGLE IMR BIT VALUE 
1446 007400 111°%7 001124 1$: MOVE (R3),$GODAT ;STORE EXPECTED 
1447 007404 112710 000040 MO »CRO) ;CLEAR ALL IMR BITS 
1448 007410 110210 MOVB 2. ) ;SET SINGLE IMR BIT 
1449 007412 111115 MOVB CR1),CRS) ;READ DATA PORT 
1450 007414 023715 001124 CMP $GDDAT CRS) 
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SEG 0052 
T33 TEST GROUP 1,2 SET SINGLE IMR BIT INSTR. ' 
1451 007420 001401 BEQ 2$ 
1452 007422 104005 ERROR+ 5 ;IMR REG ERROR 
1453 007424 005723 2s: TST CR3)-+ ;INC EXPECTED DATA TABLE 
1454 007426 020327 013414 CMP R3,#EDCHPS ;CHECK FOR END 
1455 007432 001402 BEQ 3$ 
1456 007434 005202 INC R2 ;SET UP TO SET NEXT IMR BIT 
1457 007436 000760 BR i$ ;SET NEXT IMR BIT 
1458 007440 005304 3$: DEC R4 ;D0 GROUPS 1 AND 2 
1459 007442 001405 BEQ TST34 ;;8R IF BOTH GROUPS TESTED 
1460 007444 013700 001352 MOV ORCSC RO ;CSRC ADDRESS 
1461 007450 013701 0015356 MOV ORCSO,R1 ;CSRD ADDRESS 
a. 007454 000741 BR 111$ ;00 GROUP 2 
1464 |p PARAARERAREEREREREREAEERESAEEERAEEEEEEEEEDARE EA EOEEEEEEEEEEEEES 
;*TEST 34 TEST GROUP 1,2 SET IRR INSTR. 
| REREREREEEAAAARAEAERASEEASEREREREES LEREREEEAAEEEEE EERE EEEEEEEDE 
007456 000004 ' 734: SCOPE 
1465 007460 004737 013164 JSR PC,.CLRCSR ;CLEAR ALL CSRS 
1466 007464 012704 9000002 MOV @2,R4 ;COUNTER FOR TWO GROUPS 
1467 007470 013700 001342 MOV DRCSA,RO ;CSRA ADDRESS 
1468 007474 013701 001346 MOV ORCSB,R1 ;CSRB ADDRESS 
1469 007500 004737 013254 JSR PC,.CLRIRR ;CLEAR IRR REGS WITH CHIP RESET 
1470 007504 010137 001122 111$: MOV R1, $BDADR ;STORE ADDRESS 
1471 007510 012737 000377 001124 MOV €377, $GDDAT ;EXPECTED DATA 
1472 007516 112710 000250 MOVB @MIRR, CRO) ;LOAD MODE BITS TO READ IRR 
1473 007522 112710 000120 MOVB @SIRR, CRO) ;SET IRR COMMAND 
1474 007526 111115 MOVB CR1),CRS) ;READ DATA PORT 
1475 007530 023715 001124 CMP $GDDAT CRS) 
1476 007534 001401 BEQ 
1477 007536 104003 ERROR+ 3 ;ERROR ,IRR SHOULD BE SET 
1478 007540 005304 1$: DEC Ra ;FINISHED BOTH GROUPS? 
1479 007542 001405 BEG TST35 ;;8R IF BOTH GROUPS TESTED 
1480 007544 013700 001352 MOV DRCSC .RO ;SETUP FOR GROUP 2 
1481 007550 013701 001356 MOV DRCSO,.R1 
et 007554 000753 BR 111$ ;00 IRR TEST WITH GROUP 2 
1484 
1485 5 ARARSREEAEAEREESEERSEASEREEEAOSEEDEEEEEDAREEEES. B46406444466000488 
;#TEST 35 TEST GROUP 1,2 CLEAR IRR INSTR. 
5 _ SReRAAARESASASEESESESEEAEESEEESSEAAEEEEEESEDESEESEDADEEEEEEDEEDES 
007556 000004 TST3S: SCOPE 
1486 007560 004737 013164 JSR PC,CLRCSR ;CLEAR ALL CSRS 
1487 007564 012704 MOV #2,R4 ;COUNTER FOR TWO GROUPS 
1488 007570 013700 001342 MOV DRCSA,RO ;CSRA ADDRESS 
1489 007574 013701 001346 MOV DRCSB,.R1 ;CSRB ADDRESS 
1490 007600 004737 013234 JSR PC,CLRIRR ;CLEAR IRR REGS WITH CHIP RESET 
1491 007604 010137 001122 111$: MOV R1, $BDADR ;STORE ADDRESS 
1492 007610 005037 001124 CLR $GDDAT ;EXPECTED DATA 
1493 007614 112710 000250 MOVB OMIRR , CRO) ;LOAD MODE BITS TO READ IRR 
1494 007620 112710 000120 MOVB @SIRR, CRO) ;SET IRR BITS 
1495 007624 112710 000100 MOVB @CIRR, CRO) ;CLEAR IRR COMMAND 
1496 007630 111115 MOVB CR1),CRS) ;READ DATA PORT 
1497 007632 023715 001124 CMP $GDDAT.CRS) 
1498 007636 001401 BEQ 1$ 
1499 007640 104003 ERROR+ 3 ;ERROR ,IRR SHOULD BE CLEARED 


1500 007642 005304 1$: DEC R4 ;FINISHED BOTH GROUPS? 
1501 007644 001405 BEQ TST36 ;;BR IF BOTH GROUPS TESTED 
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SES 00459 


T35 TEST GROUP 1,2 CLEAR IRR INSTR. 

1502 007646 013700 001352 MOV DRCSC RO ;SETUP FOR GROUP 2 

1503 007652 013701 001356 MOV ORCSD,R1 

saan 007656 9000752 BR 111$ 3:00 IRR TEST WITH GROUP 2 

1506 Sf PARA REAEEERESESEEEESEREEEEEAEEEEEREREEEAEERARESASEEREE ER EOEEEES 
;#TEST 36 TEST GROUP 1,2 CLEAR SINGLE IRR BIT INSTR. 
£ f FHAAESEAAESESEEAASEASHEEEARESLSESALEBSASSESESEAEESESEDARESLESDEEASEE EERE ESE 

007660 TST36: SCOPE 

1507 007662 004737 0135164 JSR PC.CLRCSR ;CLEAR ALL CSRS 

1508 007 012704 MOV #2,R4 ;GROUP COUNTER 

1509 007672 012737 007734 001110 MOV #1$,$LPERR ;SCOPE RETURN ADDRESS 

1510 007700 013700 001342 MOV DRCSA,RO ;CSRA ADDRESS 

1511 007704 013701 001346 MOV DRCSB,.R1 ;CSRB ADDRESS 

1512 007710 0047 013234 JSR PC,.CLRIRR ;CLEAR IRR REGS WITH CHIP RESET 

1513 007714 010137 001122 111%: MOV Ri, $BDADR ;STORE ADDRESS 

1514 007720 012703 013436 MOV 4, ;GOOD DATA PATTERN TABLE 

1515 007724 112710 000 MOVB @MIRR , CRO) ;LOAD MODE BITS FOR IRR 

1516 007730 012702 000110 MOV @CSIRR ,R2 ;CLEAR SINGLE IRR BIT VALUE 

1517 007734 111337 001124 1$: MOVB €R3), $GDDAT ;STORE EXPECTED 

1518 007740 112710 000120 MOVB RR, CRO) ;SET ALL IRR BITS 

1519 007744 110210 MOVB R2,CRO) ;CLEAR SINGLE IRR BIT 

1520 007746 111115 MOVB (R1),CRS) sREAD DATA PORT 

1521 007 023715 001124 CMP $GDDAT, (RS) 

1522 007754 001401 BEQ 2s 

1525 007756 104003 ERROR+ 3 :IRR REG ERROR 

1524 007760 005723 2s: TST CR3)-+ ; INC EXPECTED DATA TABLE 

1525 007762 020327 013456 CMP R3, @EDCHP4 ;CHECK FOR END 

1526 007766 001402 BEQ 3$ 

1527 007770 005202 INC R2 ;SET UP TO CLEAR NEXT IRR BIT 

1528 007772 760 BR i$ ;CLEAR NEXT IRR BIT 

1 007774 3$; DEC R4 ;D0 GROUPS 1 AND 

530 007776 001405 BEQ TST37 ;;8R IF BOTH GROUPS TESTED 

1531 01 013700 001352 MOV DRCSC RO ;CSRC ADDRESS 

532 010004 013701 001356 MOV ORCSD,R1 ;CSRD ADDRESS 

ety 010010 000741 BR 111$% 300 GROUP 2 

1535 jf PRARAAESSEESEAEESSEAEEASEEESARSEEAEEERAEEEDAEEEEAEEEDREDEDEEEDEE 
;#TEST 37 TEST GROUP 1,2 SET SINGLE IRR BIT INSTR. 

senen Te erase pancetta to ream eeenamnanenees 

536 010014 004737 013164 JSR PC.CLRCSR ;CLEAR ALL CSRS 

1537 010020 012704 000002 MOV #2,R4 sGROUP COUNTER 

5 10024 012737 010066 001110 MOV #1$,$LPERR ;SCOPE RETURN ADDRESS 

1539 010032 013700 001342 MOV CSA,R ;CSRA ss 

1540 010036 013701 001346 MOV DRCSB,R1i ;CSRB ADDRESS 

1541 010042 7 13234 JSR PC,CLRIRR ;CLEAR IRR REGS WITH CHIP RESET 

1542 01 010137 11 111$: MOV R1,$BDADR ;STORE ADDRE 

1543 010052 012703 013374 MOV SBGCHPS ,R3 ;GOOD DATA PATTERN TABLE 

| 01 112710 MOVB OMIRR , CRO) ;LOAD MODE BITS FOR IRR 

1545 010062 012702 000130 MOV @SSIRR,R2 ;SET SINGLE IRR BIT VALUE 

1546 01 111337 001124 1$: MOVB CR3), $GDDAT sSTORE EXPECTED 

1547 01 112710 000100 MOVB OCIRR, CRO) ;CLEAR ALL IRR BITS 

1548 010076 021 MOVB R2,CRO) ;SET SINGLE IRR B 

1549 010100 111115 MOVB CR1),CRS) ;READ DATA PORT 

010 023715 001124 CMP $GDDAT , (RS) 
1551 010106 001401 BEQ 2$ 
1552 010110 104003 ERROR+ 3 ;IRR REG ERROR 


a 


RA 
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TEST GROW 1,2 SE’ SINGLE TARR BIT INSTR. 


010112 005725 2s: rst (R3)> ;INC EXPECTED DATA TABLE 
010114 0203527 015414 cmp R35, e€0CHPS ;CHECK FOR END 
010120 901402 BEG 3$ | 
56 010122 005202 INC Re ;SET UP TO SET NExT IRR BIT 
010124 000760 BR 1$ ;SET NEXT IRR BIT 
010126 005504 3%: DEC R4 300 GROUPS 1 AND 2 
1559 010150 001405 BEG TST40 33;8R IF BOTH GROUPS TESTED 
010132 015700 001352 MOV DRCSC RO ;CSRC ADDRESS 
010136 0135701 001356 MOV ORCSD,R1 ;CSRO ADDRESS 
4 010142 000741 BR 1118 300 GROUP 2 
£ F SSSSSSSSSSSSSESSSHSSSSESSSESESSHASESHESHESSESSEHEEESESESESEEESESEEEEEES 
s*TEST 40 TEST GROUP 1,2 CLEAR IRR+IMR INSTR. 
FE SSSSSSESHESSSSSSSSEHESSESEHSSHESESSHSSSEHSSESSSESESHEOSSESEESHESESEEEE 
010144 000004 TST40: SCOPE 
010146 004737 015164 JSR PC,.CLRCSR sCLEAR ALL CSRS 
010152 012704 900002 MOV @2,R4 ;sCOUNTER FOR TWO GROUPS 
010156 013700 001342 MOV DRCSA,RO ;CSRA ADDRESS 
010162 013701 001346 MOV ORCSB .R1 ;CSRB ADORESS 
010166 004737 0152354 JSR PC .CLRIRR sCLEAR IRR REGS WITH CrIP RESET 
010172 0101357 001122 1118: MOV R1, $BDADR sSTORE ADDRESS 
010176 005037 001124 CLR $GDDAT sEXPECTED DATA 
010202 112710 0900250 MOVB OMIRR , CRO) sLOAD MODE = TO READ IRR 
112710 000120 MOVB @SIRR, CRO) iSET IRR BITS 
010212 112710 @SIMR, (RO) ;SET IMR BITS 
010216 112710 000020 MOVE @CIRMR , CRO) ;CLEAR IRR+IMR COMMAND 
010222 111115 MOVB CR1),CRS) sREAD DATA PORT FOR IRR 
010224 025715 001124 SGODAT CRS) 
0102350 001401 BEQ 18 
0102352 1040035 ERROR+ 5 sERROR ,IRR SHOULD BE CLEARED 
0102354 112710 000244 18; MOVE OMIMR , CRO) sLOAD MODE BITS TO READ IMR 
010240 111115 MOVE (R1).CRS) ;READ IMR REG 
010242 0235715 001124 CMP $GODAT , CRS) 
010246 001401 BEQ 2s 
584 010250 104005 ERROR- 5 ;IRR+IMR COMMAND DID NOT CLEAR IMR 
010252 0053504 2s: DEC R4 sF INISHED BOTH GROUPS? 
586 010254 001405 BEQ TST41 :;8R IF BOTH GROUPS TESTED 
010256 013700 001352 MOV DRCSC ,RO sSETUP FOR GROUP 2 
010262 0135701 0013556 MOV ORCSO .R1 
010266 000741 BR 111% 300 IRReIMR TEST WITH GROUP 2 
§ f PSORESEEEESESEEAESESEAESEEHASASEOHEDALEHESSEDEHEHEREEAELOEEEEE 
s@TEST 41 TEST GROUP 1,2 CLEAR SINGLE IRR-IMR BIT INSTR. 
§ SPRORSSEDASOSESSESEESESSEHSSHEESEOSEHSEHEESSESEEEOOEEEEEEEEEEESE 
010270 000004 TST41: SCOPE 
010272 004737 013164 JSR PC,.CLRCSR ;CLEAR ALL CSRS 
010276 012704 000002 MOV @2,R4 sGROUP COUNTER 
0103502 012737 010340 001110 MOV 1%, $LPERR : SCOPE RETURN ADDRESS 
010310 013700 001342 MOV DRCSA,RO sCSRA ADDRESS 
010314 013701 001346 MOV ORCSB ,.R1 sCSRB ADORESS 
010320 004737 015234 JSR PC ,CLRIRR 1 CORE IRR REGS WITH CHIP RESET 
010324 010137 001122 111%: MOV R1, $BDADR STORE ADDRESS 
010330 012703 013436 MOV @BGCHP4 ,R5 ‘2000 DATA PATTERN TABLE 
010334 012702 000030 MOV @CSIRMR ,R2 ;CLEAR pa -e BIT VALUE 
010340 111337 001124 1$: MOVB CR3), SGODAT sSTORE EXPECTE 
602 010344 112710 000250 MOVE OMIRR, CRO) sLOAD MODE SITs TO READ IRR 


010350 112710 000120 MOVB @SIRR, CRO) ;SET ALL IRR BITS 


CvDORCC ORVIIW Cla 1s! 


Tai 


TEST GROW 1,2 
010354 112710 
010 


000004 
010446 004757 


104006 
010576 112712 


“4 
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CLCAR SINGLE IRR-IMR BIT INSTR. 


;SET ALL IMR BITS 
;CLEAR SINGLE IRR-IMR BIT 
—3READ DATA PORT FOR IRR 


;IRR REG ERROR 
sSET UP TO READ IMR 
;READ IMR REGISTER 


; IMR REG ERROR 
3 INC EXPECTED DATA TABLE 
;CHECK FOR END 


;SET UP TO CLEAR NEXT IRR-IMR BIT 
:;CLEAR NEXT IRR-IMR BIT 

300 GROUPS 1 AND 2 

:;68R IF Bote GROUPS TESTED 

;CSRC ADDRESS 

sCSRD ADDRESS 

300 GROUP 2 


£ Fs SPSSSASSSSSSSEASSESESSESSSSESOAESSESSESSEESSSSSESEESSESEESEHSEEHEEEEESEAE 


1.2 FOR GROUP UNIQUENESS 


£ FE SSSSSEASSHSESSSHSESSSSHESSEHESSESSHEHSSSSSESSSSSESHSSEESEHEEHEEEHEEEEEE 


00006C MOVE @SIMR, CRO) 
MOVB R2,(RO) 
“OvB (R1),CRS) 
001124 CMP S$GDDAT CRS) 
BEQ es 
ERROR. 3 
000244 2s: “OvVB OMIMR, CRO) 
MOVB CR1),CRS) 
001124 CMP SGDDAT .C RS) 
BEQ 3$ 
ERROR+ 5 
3$: TST C(R3)>+ 
013456 CMP R3, @EDCHP4 
BEQ 43% 
INC Re 
BR 1$% 
4$: DEC R4 
BEQ TST42 
001352 MOV DRCSC ,.RO 
001356 MOV ORCSO,.R1 
BR 111% 
;@TEST 42 TEST GROUPS 
TST42: SCOPE 
013164 JSR PC,CLRCSR 
MOV @2,R4 
013234 JSR PC ,CLRIRR 
001122 1118: MOV R3, $SBDADR 
000300 MOVB @PACR CRO) 
000377 #377,CR1) 
000120 MOVE @SIRR,CRO) 
0 MOvB OCIMR, CRO) 
MOVB OMACR ,CR2) 
001124 CLR $GDDAT 
MOVB (R35), Spe te 
001124 CMP $GODAT CRS) 
BEG is 
ERROR+ 4 
000244 1$: MOVB OMIMR ,CR2) 
000377 001124 MOV @377,8GDDAT 
MOVB CR3), CRS) 
001124 CMP SGDDAT ,C RS) 
BEQ 2s 
ERROR+ 5 
2s: MOVB @MISR.,.CR2) 
001124 CLR $GDDAT 
MOVB CR3).CRS) 
001124 CMP $GDDAT CRS) 
BEQ 3$ 
ERROR+ 6 
000250 3$: MOVB OMIRR,CR2) 


;CLEAR ALL CSRS 

;CSRA = RO 

;CSRB = Ri 

sCSRC = Re 

;CSRD = R35 

;COUNTER FOR TESTING TWO GROUPS 
;CLEAR IRR REGS WITH CHIP RESET 
;STORE ADORESS 

sPRESELECT ACR FOR WRITING 
;sWRITE INTO DATA PORT FOR ACR 
;SET IRR TO ALL 1'°S 

;CLEAR IMR 

sLOAD MODE TO READ ACR 
;EXPECTED 

:;STORE DATA FOR COMPARE 

— ACR RESULTS 


ERROR. OTHER GROUP ACR SHOULD BE CLEARED 
;CHANGE TO IMR REGISTER 

i STORE EXPECTED 

: 

;SHOULD BE ALL 1’°S 


sERROR OTHER GROUP IMR SHOULD BE SET 
sLOAD MODE BITS FOR ISR 

;STORE EXPECTED 

sREAD ISR 

;ISR SHOULD BE CLEARED 


sISR REG ERROR 
;LOAD MODE BITS FOR IRR 


1711 011076 


ORVil. DIAG TS! 
TEST GROUPS 1.2 


111315 
025715 
00 


010137 


‘Brs' 
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FOR GROUP UNIQUENESS 


SEG 


;READ IRR 
;IRR SHOULD BE CLEARED 


sERROR OTHER GROUP IRR SHOULD BE C: EARED 
;TEST GROUPS 1 AND 2 

3;:;3BR IF BOTH GROUPS TESTED 

:;CLEAR ALL CSRS 

;GROUP 2 CONTROL PORT 

;GROUP 2 DATA PORT 

sGROUP 1 CONTROL PORT 

;GROUP 1 DATA PORT 

:;CLEAR IRR REGS WITH CHIP RESET 

;TEST GROUP 2 ACR UNIQUENESS 


SF SSSSSASSASSSHESSHESSESSEASESESHSESESSESESSHASESSESSHASEEESESSEEHEEEEE 


TEST STATUS BITS GINT,S2,.S$1,S0,GP1,2 


£ F PSSSSSSESSSSASSHESESESSESSSEESASSEESESSHSSSESSHSSEASSESHEHSEHESEEESEESEE 


MOVE CR3),CRS) 
001124 CMP $GDDAT, (RS) 
BEG 4s 
ERROR- 3 
4%: DEC R4 
BEQ TST43 
013164 JSR PC,.CLRCSR 
001352 MOV DRCSC RO 
001356 MOV DRCSO,.R1 
001342 MOV ORCSA,R2 
001346 MOV ORCSB RS 
013234 JSR PC,CLRIRR 
BR 1118 
;@TEST 43 
TST43: SCOPE 
013164 JSR PC.CLRCSR 
1342 MOV ORCSA,.RO 
001346 MOV DORCSB, 

2 MOV @2,R3 
000120 111$: MOV @120,R4 
170436 CLR 
170442 CLR @DORCSC 
013274 MOV @BGPAT1,.R2 
000001 000001 MOVB 
000204 170412 MOvB 
000204 170414 MOVB 
000020 MOVB 
000070 001372 MOV SIMR ,. IMRLOC 
000130 001376 MOV @SSIRR, IRRLOC 
001122 112$: MOV . $80 
001124 MOV R4, $GDDAT 
001376 MOVB TRRLOC .CRO) 

CRO). CRS) 
7 BIC CRS 
001124 CMP $CODAT CRS) 
BEG 
ERROR+ 7 
001124 1$: CLR $GDDAT 
001122 MOV R1. $8DADR 
001124 (R2), ¢$GDDAT 
MOVB OMIRR ,CRO) 
MOVB CR1),CRS) 
001124 CMP SGODAT. CRS) 
BEQ 
ERROR > 3 
001122 2s: MOV RO, $60 
001372 MOVE IMRALOC . CRO) 
320 001124 MOV #320, $GDDA 
MOVE CRO),.CRS) 
000007 BIC 67,¢(R5) 
001124 CMP $GDDAT, CRS) 
BEQ 
ERROR + 
001122 3$: MOV R1. SBOADR 


;CLEAR ALL CSRS 


;00 TWO GROUPS 
;EXPECTED STATUS BITS 
T CSRA 





3; #¢@ VDRCA1 ADDS THIS eee 33GPA 


;CHIP STATUS ERROR 
3CSR CHIP DATA ADDRESS 
;READ IRR 

;CHECK IRR 

;IRR ERROR 


;SET IMR BIT 
;CSR EXPECTED DATA 


;CLEAR UNDEFINED BITS 


;CHIP STATUS ERROR 


G4 


cA 


CVDRCC ORVIIJ CIAG TST PRT1 MACRO M1200 27 -DEC-83 99:55 PAGE 12 16 
ry GUa* 
T45 TEST STATUS BITS GINT,5S2,51.,50,GP1.2 
1712 011102 011237 001124 MOV (R2),$GDDAT ;EXPECTED DATA 
1715 011106 112710 000244 MOVB OMIMR, CRO) ;READ IMR BITS 
1714 O11112 111115 MOVB (R1),CR5) gSAVE IMR READ 
1715 011114 023715 001124 CMP SGDDAT CRS) 
1716 011120 001401 BEG 4s 
1717 O11122 104 ERROR+ 5S ; IMR ERROR 
1716 011124 005722 4%: TST (R2)-+ sNEXT EXPECTED FOR IMR + IRR 
1719 011126 020227 015314 CMP R2, SEDCHP 1 ;CHECK FOR END 
1720 011132 001407 BEQ S$ 
1721 011134 0052357 0013576 INC TRRLOC ;sNEXT IRR BIT 
1722 011140 005237 0013572 INC IMRLOC sNEXT IMR BIT 
1725 ;;GPA INC R4 ; INDEX EXPECTED STATUS 
1724 011144 000240 NOP 33; ##@ VDRCA1 DELETES INC RG eee ; ;GPA 
1725 011146 000137 010756 JMP 112$ 300 NEXT STATUS CHECK 
1726 011152 005503 S$: DEC 3 sF INISHED BOTH GROUPS? 
1727 011154 001406 BEG TST44 ;;BR IF EQUAL 
1726 011156 013700 001352 MOV DRCSC ,RO 
1729 011162 013701 0013556 MOV DRCSO,R1 
ee 011166 000137 010674 JMP 1118 ;00 NEXT GROUP 
1732 
1733 5 EAARESOHHESEEEEERSSASSOAAEEERERSSEEASEEEEHEESESESESESESEEEEEEEES 
;*TEST 44 TEST POLLED MODE;CSRS A,B=OUT C,D=IN,ACTIVE LOW 
f  SPAAEARESOSASEEERESESEAEESESEHEAEEEEEESAEESESESEHOEEROESOEEEEEEE 
011172 000004 TST44: SCOPE 
1734 011174 004737 013164 JSR PC,.CLRCSR ;CLEAR ALL CSRS 
1735 sRO = CSRA-GROUP 1 CONTROL 
1736 ;R1 = CSRB-GROUP 1 DATA 
1737 ;R2 = CSRC-GROUP 2 CONTROL 
1738 3R3 = CSRO-GROUP 2 DATA 
1739 011200 012737 11 001110 MOV 1%, $LPERR ;SET FOR SCOPE RETURN 
1740 011206 012704 013272 MOV @BEGPAT ,.R4 sSTART OF PATTERN TABLE 
1741 011212 112760 000001 000001 @BITO,10RO) sSET CSRA TO OUTPUT MODE 
1742 12 112761 000001 000001 MOVB @BITO,1(R1) ;SET CSRB TO OUTPUT MODE 
1743 011226 105010 CLRB CRO) ;CHIP RESET GROUP 1 CSRA 
1744 011230 105012 CLRB CR2) sCHIP RESET GROUP 2 C 
1745 011232 112710 000204 MOVB @204 , (RO) sLOAD MODE BITS FOR POLLED MODE.GR 1 
1746 011236 112712 000204 MOVB @204 ,,(R2) MODE BITS FOR POLLED »GR2 
1747 011242 112710 000250 MOVE OMIRR,CRO) :LOAD BITS TO READ IRR 
1748 011246 112712 000250 MOVB @MIRR,.CR2) ;LOAD BITS TO READ IRR GROUP 2 
1749 011252 011460 1%: MOV CR4),2CRO) ;SET PATTERN DOBRA FROM H TO L 
1750 011256 012760 177777 000002 MOV #-1,2CRO) sFORCE ALL BITS IN DBDRA HIGH 
1751 011264 112710 20 eciI CRO) :CLEAR IMR-+IRR 
1752 011270 112712 000020 MOVB @CIRMR ,CR2) ;CLEAR IMR+IRR GROUP 2 
1753 011274 005114 COM R4) ;COMPLEMENT TABLE DATA 
1754 011276 011460 000002 MOV CR4),2CRO) ;XMIT CSR 
1755 011 012760 177777 000002 MOV #-1,2CRO) sFORCE ALL BITS HIGH AGAIN 
1756 011310 114 COM CR4) sRESTORE TABLE DATA 
1757 011312 010137 001122 2s: MOV R1, $BOADR ; GROUP 1 DATA PORT 
1756 011316 111437 001124 MOVB CR4), $GDDAT 
1759 011322 111115 MOVB R1),CRS) sREAD IRR,GROUP 1 
1760 011324 023715 001124 CMP % AT,CRS) 
1761 011330 001401 BEQ 3% 
1762 011332 104003 ERROR: 53 ;IRR ERROR,GROUP 1 
1763 011334 010337 001122 3$: MOV R3,.$BDADR sGROUP 2 DATA PORT 
1764 011340 116437 000001 001124 MOVE 1(R4), $GDDAT ;sBUILD EXPECTED DATA 
1765 011346 042737 000360 001124 BIC #360, $GDDAT ;SAVE BITS 0-3 


4 
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SE GOG4 
T4a4 TEST POLLED MODE;CSRS A,B-OUT C,D-IN,ACTIVE LOW 
1766 011354 052737 000100 001124 BIS #100, $GDDAT ;EXPECTED 0O-3,URPLY 6(C) 
1767 011362 111315 MOVB CR3),CRS) ;READ IRR BITS,GROUP 2 
1768 011364 023715 001124 CMP $GDDAT CRS) 
1769 011370 001401 BEQ 4s 
1770 011372 104003 ERROR+ 3 ; IRR ERROR,GROUP 2 
1771 011374 005762 900002 4$: TST 2(R2) ;sREAD DBRC FOR RPLY 4(A) 
1772 011400 052737 000020 001124 BIS 20, $GDDAT ;STORE EXPECTED 
1773 011406 111515 MO CR3), CRS) ;READ IRR BITS,GROUP 2 
1774 011410 023715 001124 CMP $GDDAT , CRS) 
1775 011414 001401 BEG S$ 
1776 011416 104005 ERROR+ 3 ;IRR ERROR,GROUP 2 
1777 011420 005061 000002 5$: CLR 2(R1) ;CLEAR DBRB FOR RPY 7(D) 
1778 011424 052737 000200 001124 BIS #200, $GDDAT ;EXPECTED 
1779 011432 111515 MOVB CR3),CRS) sREAD IRR BITS GROUP 2 
1780 011434 023715 001124 CMP $GDDAT CRS) 
1781 011440 001401 BEQ 6$ 
1762 011442 1 3 ERROR + ;IRR ERROR,GROUP 2 
1783 011444 0057635 000002 6$: TST 2(R3) ;READ DBRD FOR RPLY 5(B) 
1784 011450 052737 9000040 001124 BIS #40 , $GDDAT 
1785 011456 111315 MOVB CR3),CRS) ;sREAD IRR BITS GROUP? 
1786 011460 023715 001124 CMP SGDDAT, CRS) 
1787 011464 001401 BEQ ;GET NEXT PATTERN 
1788 O11 1 3 ERROR + ;IRR ERROR,.GROUP 2 
1789 011470 005724 7$: TST traps ; INDEX DATA TABLE 
1790 011472 020427 013572 CMP R4 , GENDDAT ;CHECK FOR END 
pa 011476 001265 BNE 1$ 3:00 NEXT PATTERN 
1793 
1794 fp CPAMSEAEESSEEESEAEEAESEEESESEEHESESEEESEEEEEOERESOEDEEEEEHEEEEEES 
;*TEST 45 TEST GROUPS 1,2 IN POLLED MODE.NO REPLY 
§ PORSEAESESASEESEEESAESEEREDEEEEASEEEEEESEESEEHESEDEDEOEEEEEEEEEE 
011500 000004 TST45: 
1795 011502 004737 013164 PC,.CLRCSR ;CLEAR ALL CSRS 
1796 sRO = CSRA-GROUP 1 CONTROL 
1797 :R1 = CSRB-GROUP 1 DATA 
1798 sR2 = CSRC-GROUP 2 CONTROL 
1799 :R3 = CSRD-GROUP 2 DATA 
1800 011506 012704 000002 MOV @2,R4 ;TWO PASSES 
1601 sFIRST PASS CSRA.CSRB = OUTPUT 
1802 : »CSRD = INPUT 
1803 ;SEC PASS CSRC.CSRD = OUTPUT 
1804 ; A,CSRB = INPUT 
1805 011512 112760 000001 000001 111%: MOVE #BITO,1CRO) ;SET CSR TO OUTPUT MODE 
1806 011520 112761 000001 000001 #BITO,1CR1) ;SET CSR TO OUTPUT MODE 
16907 O11 012760 177777 000002 MOV @-1,2CRO) ;SET ALL ONES DBR FOR H TOL 
1808 011534 105010 CLRB CRO) ;CHIP RESET GROUP CSR 
O11 105012 CLRB CR2) ;CHIP RESET GROUP CSR 
1810 011540 112710 000204 MOVB 0204 , (RO) ;LOAD MODE BITS FOR POLLED MODE 
1611 011544 112712 000204 MOVB €204 , CR2) sLOAD MODE BITS FOR POLLED MODE 
1812 011550 112710 000020 MOVE OCIRMR ,CRO) ;CLEAR IMR+IRR 
16135 011554 112712 000020 MO @CIRMR ,CR2) ;CLEAR IMR-IRR 
1814 011560 7 000002 TST CRO) sREAD OBR IN OUTPUT MODE.NO REPLY 
1815 O11 012737 000320 001124 MOV #320, $GDDAT ;STORE EXPECTED 
1616 011572 010037 001122 MOV RO, $BDADR ;STORE ADORESS 
1817 011576 111015 MOVB CRO), CRS) ;READ STATUS 
1818 011600 042715 000007 BIC @7,(R5S) ;CLEAR UNDEFINED BITS 
1819 011604 023715 001124 CMP $GODAT,CRS) S CHECK STATUS 


T45 


1620 011610 
182 


1873 012056 


000004 
004737 


012737 


112763 


CVDRCC ORVILJ DIAG TST PRIL 
TEST GROUPS 1,2 IN POLLED MODE.NO REPLY 


013164 


012110 
013272 
000001 
000001 
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001124 


001124 


001110 


000001 
000001 


1$: 


2s: 
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1$ 
7 


R2, $BDADR 


CR2),CRS) 
@7,CRS) 
$GDDAT CRS) 
2s 

7 

#0,2CR2) 
2(R1) 
@0,2(R3) 
R1, $BDADR 
OMIRR, CRO) 
$GDDAT 
CR1),CRS) 

\ aia 


3 
KXTFLAG 


100$ 
#300, $GDDAT 
$GDDAT CRS) 


;CHIP STATUS ERROR 
T ss 


3 STORE 
;READ STATUS 


;CLEAR UNDEFINED BITS 


; CHIP STATUS ERROR 


;WRITE ONLY,OBR INPUT MODE age NO REPL ¥ 


;READ DBR OUTPUT MODE,.NO REPL 


;WRITE 

; CHIP DATA PORT 
;LOAD BITS TO READ IRR 
;IRR SHOULD BE ZERO 
;READ IRR 


; ON KXT11, READ-BEFORE-WRITE... 
T 2$ UPSETS EXPECTED IRR. 


; TRY THE ALTERNATE VALUE. 


;IRR ERROR+ 

;CHIP DATA PORT 

;LOAD MODE BITS TO READ IRR 
;READ IRR BITS 

; ON KXT11, DITTO. 

; TRY THE ALTERNATE VALUE. 
;IRR ERROR>+ 

sFINISHED TWO PASSES 


IF EQUAL 
;CLEAR ALL CSRS 
;SET UP FOR NEXT PASS 


3;D0 NEXT PASS 


» OBR INPUT MODE . NO REPLY 


fF SPPRASESSSSSEESSESSESSSESSESESSEAEESSEEELASESSSESEEESSESSESEESEESEESESEDE 


s@TEST 46 
ff PORRAERAEEEEEEEAREES EASSEEREEEESESESESOREEREDEDEEEEEEEEEEDROREEE 


TST46: 


SCOPE 
JSR 


TEST POLLED MODE;CSRS C.D=OUT A,B=IN,ACTIVE LOW 


PC.CLRCSR 


01%, $LPERR 
@BEGPAT ,R4 
#BITO,1(0R2) 
#BITO,1€R3) 


;CLEAR ALL CSRS 


ABLE 
;SET CSRC TO OUTPUT MODE 
;SET CSRD TO OUTPUT MODE 


SE 9 4045 


DRV1L1J DIAG TST PRI1 


012336 
012340 


000004 
004737 


001124 


013572 


013164 


MACRO M1200 
TEST POLLED MODE;CSRS C,D=OUT A,B-IN, ACTIVE LOW 


001124 
001124 
001124 


001124 


001124 


001124 


1$: 


2s: 


3$: 


4$: 


5$: 


6$: 


7$: 


44 
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@-1,2CR2) 


#360, $GDDAT 
#20, $GDDAT 
CR3),CRS) 
ee 


$GDDAT CRS) 
6$ 


2(R1) 
#200, $GDDAT 


CR3),CRS) 
$GDDAT , CRS) 


3 

CR4)> 
oe 
1 


;CHIP RESET GROUP 1 CSRA 


;LOAD BITS TO READ IRR GRP 
;LOAD BITS TO READ IRR GRP 
;SET PATTERN OBRC FOR H TO 
;sFORCE ALL BITS IN DRDBC H 
;CLEAR IMR+IRR GROUP 1 
;CLEAR IMR+IRR GROUP 2 
;COMPLEMENT TABLE DATA 
;XMIT CSR 

sFORCE ALL BITS HIGH 
sRESTORE TABLE DATA 

: GROUP 1 DATA PORT 


sREAD IRR,GROUP 1 


;IRR ERROR,GROUP 1 
;GROUP 2 DATA PORT 


;SAVE BITS 0-3 
s;EXPECTED O-3,URPLY 4(A) 
;READ IRR BITS,GROUP 2 


ERROR ,GROUP 2 

: DBRA FOR RPLY 6(C) 
;STORE EXPECTED 

sREAD IRR BITS,GROUP 2 


;IRR ERROR,GROUP 2 
;CLEAR DBRD FOR RPY 5S(B) 
sEXPECTED 

sREAD IRR BITS GROUP 2 


;IRR ERROR.GROUP 2 

;READ DBRB FOR RPLY 7(D) 
sREAD IRR BITS GROUP2 
;IRR ERROR,GROUP 2 

; INDEX ahh TABLE 


;CHECK FOR END 
;00 NEXT PATTERN 


33JRS 
73 JRS 


33JRS 


33JRS 
33;JRS 
33 JRS 
33JRS 


| fs PRSARSEAASEEEAOSAEAESSSEEREEEREAEDES SEEDS EREEREEEEEDEEADRERLDDDE 
TEST IRR BITS WITH DATA PAT.,POLLED MODE,ACT. HIGH 


£ FMS SSHESESASARESESESESESEEEASLASESELASESSSELSESESSEOERESSESSEEESEESEEEES 


;#TEST 47 
TST47: SCOPE 
JSR 


PC,.CLRCSR 


;CLEAR ALL CSRS 


SEQ 9044 


CVDRCC ORVIIJ DIAG TST PRT1 


147 


TEST IRR BITS WITH DATA 


012705 


013572 
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PAT. .POLLED MODE,ACT. HIGH 
MOV @BEGPAT,R3 
001110 MOV #1, $LPERR 
MOV DRCSA,RO 
MOV ORCSB,R1 
MOV ORCSD, 
000001 MOVB @BITO,1CRO) 
000001 MOVB #BITO,1¢CR1) 
MOVB $224 ,(RO) 
000010 MOVB #224 ,10(RO) 
1$: CLR (RO) 
MOVB @CIRMR,CRO) 
000010 MOVB @CIRMR,10(RO) 
MOV (R3), 2(RO) 
MOV Ri, $BDADR 
MOVB @MIRR,CRO) 
MOVB CR3),$GDDAT 
MOVB R1),CRS) 
CMP ¢ AT,.CRS) 
BEQ 2s 
ERROR+ 3 
2s: MOV R . $80 
000010 MOVB OMIRR, 10CRO) 
001124 MOVB 1(0R3), $GDDAT 
001124 BIC 360, % 
001124 BIS 100, $GDDAT 
CR2),CRS) 
CMP $GDDAT, CRS) 
BEQ 3$ 
ERROR: 3 
3$: TsT CR3)-+ 
CMP R3, ENDDAT 
BNE 1$ 
;*#TEST 50 
TSTSO: SCOPE 
001160 MOV 01,$TIMES 
JSR PC .CLRCSR 
MOV DRCSA,RO 
MOV ORCSB .R1 
000001 MOVB @IE!:BITO,1CRO) 
000001 @BITO,1CR1) 
MOV » SBDADR 
001124 MOV #100300 , SGDDAT 
RESET 
MOV CRO). CRS) 
BIC @7,(RS) 
CMP $GDDAT , CRS) 
BEQ L¢ 
ERROR+ 2 
001124 i$: MOV #100000 , $GDDAT 
MOV Ri, $6DADR 
MOV CR1),CRS) 
CMP $GDDAT, CR5) 
BEQ TST51 


T4 


;GET DATA PATTERN TABLE 
;SET UP SCOPE ADDRESS 


;CSRA OUTPUT MODE 
;CSRB OUTPUT MODE 
;LOAD MODE BITS FOR POLLED MODE ,GP1 
;LOAD MODE * shin FOR POLLED MODE ,GP2 


GROUP 2 
;STORE PATTERN INTO DBRA 
;CSRB ADDRESS 

;LOAD BITS TO READ IRR1 


;READ IRR,GP1 


;IRR ERROR ,GP1 

;CSRD ADDRESS 

;SET MODE TO READ IRR BITS GROUP 2 
sBUILD EXPECTED DATA 

sBITS O-3 EXPECTED 

7"A” REPLY EXPECTED 

sREAD IRR2 


;IRR GROUP 2 

; INDEX DATA TABLE 
;sCHECK FOR PATTERN END 
;D0 NEXT PATTERN 


Sf SPSSSSSSEASEASASSSESSAEHSESSSESSESESHEEESSOSSHESSASESESEESESSESEESEBEE 


TEST CSRA AND CSRB WITH RESET 


Ss SSSSSSSESSSOESASSSASESESEAEESESASESSSEEHASEAASSESEREESEESEEEEEESES 


3:00 1 ITERATION 
;CLEAR ALL CSRS 


sCSRA TO OUTPUT MODE 
3;SET CSRB TO OUTPUT MODE 


SRA ADDRESS 
sRDY + CHIP STATUS ExP’'D 
s INITIALIZE 
3 STORE 
;CLEAR UNDEFINED BITS 
sMAKE COMPARE 


sCSRA ERROR ON RESET 
PECTED 


;;BR IF EQUAL 


SES 9047 


CvDRCC 
TS0 


DRVLIL CIAG TST PRTIL 
TEST CSRA AND CSRP WITH RESET 
012662 104002 


000004 
01 012737 000001 001160 


012710 112762 000001 000001 
012716 112763 0900001 000001 


2 
0127350 012737 100200 001124 
000005 


001124 


MACRO M1200 


ERROR - 


4 


J 
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2 


;CSRB ERROR WITH RESET 


§ FE SSSSESSSEHSESESSESSESSSESSEESESSESEESSESESESSESSEEESEEESSESESEASEEESESEAOEEEEE 


TEST CSRC AND CSRD WITH RESET 


SF PSSSSSESSESSSESSESSESESSESEEESEAEESSESASESEEEEAESESSEESHEEEESASEESEEHGEEOSE 


;*#TEST 51 
TSTS1: SCOPE 
MOV 


1$: MOV 


2s: 


@1,$TIMES 
PC,CLRCSR 
OR 


CsC,Re 
ORCSD RS 
#BITO,1(R2) 
@BITO,10R3) 
R2, $BDADR 
#100200, $GDDAT 
CR2),(R5) 


@7,CRS) 
oe 


$GDDAT ,CRS) 
. 


;;00 i ITERATION 


3SET CSRC TO OUTPUT MODE 
;SET CSRO TO OUTPUT MODE 
ADDRESS 


; INITIALIZE 

sSTORE CSRC 

;CLEAR UNDEFINED BITS 
;MAKE COMPARE 


;CSRC ERROR WITH RESET 
;CHECK CSRD 

;STORE EXPECTED 

;READ CSROD 

;MAKE COMPARE 


;CSRD ERROR ON RESET 


SEG 9042 


I“ “| 


CVDRCC ORVIIJ DIAG TS! PRT1 MACRO M1200 27-DEC-83 99:55 PAGE 15 
SEG 9049 
T51 TEST CSRC AND CSRD WITH RESET 
2007 
2008 
2009 : 
2010 ;DON‘ T REPORT “EOP” *..... ALL SELECTED DRV11-/'S HAVE BEEN TESTED. 
2011 013002 013701 001342 NXDEV: MOV DRCSA,R1 ;INIT TO SETUP NEXT DRV11J ADDRESSES 
2012 015006 000241 NXDEV1: CLC ;CLEAR CARRY FOR DEVICE MAP 
2013 013010 006037 001364 ROR DMAP ;LO0K FOR NEXT DRV11U 
2014 013014 001412 BEQ sEOP ;BR IF ALL TESTED 
2015 013016 162701 000020 SUB #20,R1 ;NEXT ORV11-J STARTS -20 
2016 013022 005237 001202 INC SUNIT ; UPDATE UNIT NUMBER 
2017 0130 032737 000001 001364 BIT #1,DMAP ;IS UNIT SELECTED? 
2018 013034 001764 BEQ NXDEV1 ;sNEXT,IF NOT SELECTED 
2019 013036 000137 002100 JMP NEXPAS ;TEST NEXT ORVI1-J 
2020 .SBTTL END OF PASS ROUTINE 
8 § SSSSSSAASSSSESSESASESSEASESEESEHEASASESSEEESEAESESEAESSESEEEESESESEEEEESE 
;*#INCREMENT THE PASS NUMBER ($PASS) 
;@#TYPE “END PASS @XXXXX” CWHERE XXXxXxX IS A DECIMAL NUMBER ) 
;*IF THERES A MONITOR GO TO IT 
;#IF THERE ISN’T JUMP TO START1 
015042 sEOP: 
013042 000240 NOP 
013044 005037 001102 CLR $TSTNM ;;ZERO THE TEST NUMBER 
013050 005037 001160 CLR $TIMES 1 oR THE NUMBER OF ITERATIONS 
013054 005237 001176 INC $PASS ; INCREMENT THE PASS NUMBER 
013060 042737 100000 001176 BIC #100000, $PASS : DON’ T ALLOW A NEG. NUMBER 
013066 005327 DEC CPC )+ ; ;LOOP? 
013070 000001 SEOPCT: .WORD 1 
013072 003022 BGT $D00AGN 33YES 
013074 012737 MOV CPC)+, aCPC)-+ ;sRESTORE COUNTER 
013076 SENDCT: .WORD 1 
013100 013070 sEOPCT 
013102 104401 013147 TYPE » SENDMG ;TYPE “END PASS @” 
013106 013746 001176 MOV $PASS, -(SP) : SAVE sPASS FOR TYPEOUT 
013112 10440 TYPOS ; G0 TYPE--DECIMAL ASCII WITH SIGN 
0135114 104401 013144 TYPE » SENULL :;:TYPE A NULL CHARACTER 
131 013700 000042 $GET42: MOV 8042 ,RO ;:GET MONITOR ADDRESS 
013124 001405 BEQ $DO0AGN ; ;B8RANCH IF NO MONITOR 
013126 RESET ;;CLEAR THE WORLD 
013130 004710 SENDAD: JSR PC,CRO) ;:;GO TO MONITOR 
013132 000240 NOP ;:SAVE ROOM 
013134 000240 NOP +3:FOR 
013136 000240 NOP 3;ACTI1 
013140 $DOAGN: 
013140 000137 JMP ac PC )>+ ; sRETURN 
013142 002034 $RTNAD: . STARTL 
131 377 377 000 SENULL: .BYTE -1,-1,0 je CHARACTER STRING 
013147 015 012 105 sENDMG: .ASCIZ <15><12>/END PASS @ 
013152 116 104 040 
013155 120 101 123 
013160 123 040 043 
013163 000 


| 4 
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PROGRAM SUBROUTINES 


2022 .SBTTL PROGRAM SUBROUTINES 
2025 
2024 
fF PPROESESESSESEAESAEESEEESEEESEEAEEEEEEEEEESEEEEHESEEEEEHEEEEEEEE 
2026 ;CLEAR ALL CONTROL/STATUS REGISTERS 
2027 ;INIT REGISTERS RO-R4 WITH CSRA-CSRD 
2026 ;AND STORE SBDDAT INTO RS. 
2029 VPP PT PT Tor eryrrT Ory TYTOTTTTTT TTT TTT TT TT TTT TTT TT TTTTTTT TTT TITTY 
2030 013164 012705 001126 CLRCSR: MOV @$BDDAT,.RS ;BAD DATA STORAGE IN RS 
2031 013170 013700 001542 MOV ORCSA,RO ;CSRA ADDRESS TO RO 
013174 013701 001546 MOV ORCSB ,.R1 ;CSRB ADDRESS TO Ri 

2033 01 013702 001352 MOV DRCSC .R2 ;CSRC ADDRESS TO Re 
2034 013204 013703 0013556 MOV DRCSD RS ;CSRD ADDRESS TO R3 
2035 013210 0050357 001124 CLR $GDDAT ;CLEAR EXPECTED 
2036 013214 005015 CLR CRS) ;CLEAR REC‘D 
2037 015216 005010 CLR CRO) ;CLEAR CSRA;CHIP RESET GROUP 1 
2036 013220 105061 000001 CLRB i€R1) ;CLEAR HIGH BYTE CSRB 
2039 015224 005012 CLR CR2) ;CLEAR CSRC;CHIP RESET GROUP 2 
2040 015226 1050635 000001 CLRB 1(R3) ;CLEAR HIGH BYTE CSRD 
2041 0135232 000207 RTS PC 
2042 
2045 
2044 ;CLEAR IRR REGISTERS, GROUP 1,GROUP 2 WITH CHIP RESET 
2045 013234 010046 CLRIRR: MOV SP ) 
2046 0135236 013700 001342 MOV ORCSA, RO ;START OF CSR ADDRESS 
2047 013242 105060 000011 CLRB 11(RO) ;CSRC TO INPUT MODE 
2046 013246 112760 900001 000001 MOVB eBI1T0. 1(RO) ;CSRA TO OUTPUT MODE 
2049 0135254 005060 000002 CLR 2CRO) ;CLEAR DBRA 

50 013260 105010 CLRB CRO) ;CHIP RESET OF GROUP1 
2051 013262 105060 000010 CLRB 10(RO) ;CHIP RESET OF GROUP 2 
2052 013266 012600 MOV CSP )+,RO ;RESTORE REGISTER 
2053 013270 000207 RTS PC sEXIT 


CVDRCC ORV1I1J CIAG TST PRT1 


PROGRAM SUBROUTINES 


3366 
2092 0135370 
2094 013372 


2111 013434 
2112 013436 


177777 
177776 


M4 
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.SBTTL PATTERNS FOR REGISTER R/W 
; 
;PATTERNS USED FOR LOADING/READING REGISTERS 


BEGPAT: 
BGPATI: 


EDCHP 1: 


BGCHPe : 


EDCHPe: 


BGCHPS3: 


EDCHPS3: 


BGCHP4 : 


0 


1 


100000 
177777 
177776 


;GROWING 1 


;GROWING O 


;WALKING 1 


;WALKING O 


2156 013562 
2157 0135564 
21 1 


58 013566 
2159 013570 
soe 013572 


CVORCC ORVI1J DIAG TST PRIL 
PATTERNS FOR REGISTER R/W 


177775 


155555 
133333 


066666 
125252 
052525 
177777 


000000 
107070 
070707 


MACRO M1200 


1 
EDCHP4: 


177775 


ENDPAT: O00000 


;DATA PATTERNS 


PATDAT: 155555 
13333 


ENDDAT: 000000 


N4 
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SEG 9052 


CvDRCC DRVI1S CIAG TST PRI1 


SYSMAC ROUTINES 


013574 


013746 


001157 


014124 


014006 
001156 


001154 
000001 


014006 
014124 


ae 
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.SBTTL SYSMAC ROUTINES 
.SBTTL TYPE ROUTINE 


001210 
001211 


001211 


§ J PPASEOSEEEEEESEEEEESESESESESESEESSESEEESESEEEEEEEESEEOEOE SEES 
;@ROUTINE TO TYPE ASCIZ ey va MUST TERMINATE WITH AO BrTe. 
;¢THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED 


;@NOTE1L: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
; *NOTE2. SFILLS CONTAINS THE NUMBER OF FILLER —_— REQUIRED. 
;@NOTES: $FILLC CONTAINS THE CHARACTER TO FILL AF 
3¢ 
;*CALL: 
3#1) USING A TRAP INSTRUCTION 
—_ TYPE »MESADR 3sMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
;¢ 
3% TYPE 
;* ME SADR 
32 
$TYPE: TrsTs sTPFLG 33I1S THERE A TERMINAL ? 
BPL it ;;6R IF YES 
HALT ssHALT HERE IF NO TERMINAL 
BR 3$ 3; sLEAVE 
1$: MOV RO, -C SP) ::SAVE RO 
MOV 82(SP),RO 33GET ADORESS OF ASCIZ STRING 
CMPB @APTENV, SENV : sRUNNING IN APT 
BNE 628 33N0.GO CHECK FOR APT CONSOLE 
SITs @APTSPOOL ..SENVM ;;SPOOL MESSAGE TO APT 
BEQ 62% 33NO.GO CHECK FOR C 
MOV RO.61% 33;SETUP MESSAGE ADDRESS FOR APT 
JSR PC, S8ATY3 33SPOOL MESSAGE TO APT 
61%: -.WORDB O sMESSAGE ADORESS 
62%: BITB @APTCSUP,SENVM ;;APT CONSOLE SUPPRESSED 
BNE 608% 3:YES.SKIP TYPE OuT 
2s: MOVB CRO)+, -CSP) 33;PUSH CHARACTER TO BE TYPED ONTO STACK 
BNE &$ ;2BR IF IT ISN‘ T THE TERMINATOR 
TST (SP )- 331 TERMINATOR POP IT OFF THE STACK 
60%: MOV CSP )+,RO 3; sRESTORE RO 
3$: ADD @2,¢(SP) :sADJUST RETURN PC 
RTI ;aRET URN 
4$: a eer? 3 ;BRANCH IF <HT> 
vo a? :;BRANCH IF NOT <CRLF> 
TST (SP )> 33;P0P <CR><LF> EQUIV 
TYPE 3;1TYPE A CR AND LF 
sCRLF 
CLRB SCHARCNT ;:CLEAR CHARACTER COUNT 
BR 2s ;3GET NEXT CHARACTER 
5%: JSR PC, $TYPEC 3:;GO TYPE THIS CHARACTER 
6$: CMPB SFILLC, CSP) 331S IT TIME FOR FILLER CHARS. ? 
BNE 2s 33IF NO GO GET NEXT CHAR. 
MOV SNULL, -( SP) 33GET @ OF FILLER CHARS. NEEDED 
:3AND THE NULL CHAR. 
7%: DECB all 3;:;D0ES A NULL NEED TO BE TYPED? 
BLT ;3;6R IF —. POP THE NULL OFF OF STACK 
JSR +4 sTYPEC 3:;GO TYPE A 


NULL 
DECB $CHARCNT 3;00 NOT COUNT AS A COUNT 
BR 7% + LOOP 


9E 


OY . ; / 


CvORCC ORVIILAS 


TYPE ROUTINE 


2166 


Cla, TS! 


112716 
37 


112737 
112737 
000403 


112737 


PRT1 


165152 
165126 


165106 


165064 
000015 
014124 
000012 


MACRO M1200 2? 


014124 


165056 
000002 


014374 
014372 


014374 


sTYPEC: 


101%: 


1028: 
108: 


1%: 


$CHARCNT 


DEC -83 99:55 PAGE 


STYPEX: RTS PC 
.SBTTL APT COMMUNICATIONS ROUTINE 


£ F SSSSSSSSSSHSSSSHKSSSHESSESASSSOASOSSEHSESHSSSESESESHESESEESSHEEEEEE 


SATYL: 
SATY3: 


SATY4: 
SATYC: 


18: 


2s: 


MOVE 
MOVB 


BR 
MOVB 


i Hf 


;sHORIZONTAL TAB PROCESSOR 
: 


e CSP) 
PC, $TYPEC 
07. $CHARCNT 
FY 


01,$FFLG 
® 


@1,8FFLG 
RO, -( SP) 
Ri, -(SP) 
SMFLG 


5% 
i eacaaied 


3 
- - hlaartataaaaeis 


16 1 


::REPLACE TAB WITH SPACE 
s;3TYPE A SPACE 

; ;BRANCH IF NOT AT 

;3;TAB STOP 

;3;PO0P SPACE OFF STACK 
3;;GET NEXT CHARACTER 


;;CHAR IN KYBD BUFFER? 7440001 
;3;6R IF NOT 340001 
3;GET CHAR 340001 
33STRIP EXTRANEOUS BITS 340001 
33WAS CHAR XOFF s™JD001 
;;6R IF NOT 340001 
;4J0001 
s3;WAIT FOR CHAR 3MJD001 
340001 
;:;GET CHAR 3™J0001 
33STRIP IT ;MJDOC 1 
33;WAS IT XON? 340001 
;;8R IF NOT ;4MJD001 
740001 
33F IX STACK 3sMJ0001 
340001 
;;WAIT UNTIL PRINTER IS READY 
740001 


3s;LO0AD CHAR TO - TYPED INTO DATA REG. 
331S ge CARRIAGE RETURN? 
33 
;3;YES--CLEAR CHARACTER COUNT 
33EXIT 
3315 CHARACTER A LINE FEED? 
3 ;BRANCH IF YES 
+ | COUNT THE CHARACTER 
; ;sCHARACTER COUNT STORAGE 


13TO REPORT FATAL ERROR 
33T0 TYPE A MESSAGE 


3310 ONLY REPORT FATAL ERROR 


:3PUSH RO ON STACK 
3;PUSH R1 ON STACK 
He TYPE A MESSAGE? 


sIF NOT: 
: OPERATING UNDER APT? 
33IF NOT: BR 
::SHOULD SPOOL MESSAGES? 


33 RETURN ADOR. 
;;SEE IF DONE W/ LAST XMISSION? 
331 NOT: WAIT 

33PUT ADOR IN MAILBOX 

33" IND END OF MESSAGE 


CvORCC ORVIIL CI45 Ts! 


PRT1 


APT COMMUNICATIONS ROUTINE 


2167 


014374 


001204 


177776 
013574 
014374 
001210 
001170 
000004 
000002 
001170 
014374 


014373 
014372 


Of) 
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BNE 2s 
SUB $SMSGAD ,RO :3:;SUB START OF MESSAGE 
ASR 3;GET MESSAGE LNGTH IN WORDS 
MOV RO, $MSGLGT 33PUT LENGTH IN MAILBOX 
001170 “+ 04, SMSGTYPE ::;TELL APT TO TAKE MSG. 
014304 53%: MOV et Po oa :;;PUT MSG ADDR IN JSR LINKAGE 
000004 ADD @2,4(SP) 3 ;BUMP RETURN ADDRESS 
MOV 177776, -(SP) :3;PUSH 177776 ON STACK 
a JSR * s TYPE ;;CALL TYPE MACRO 
S$: 
10$: TSTB $FFLG ;;SHOULD REPORT FATAL ERROR? 
BEQ 12$ ;3IF NOT: 6R 
TST SENV 33 NG UNDER APT? 
BEQ 12$ s33:IF NOT: BR 
11$: TST SMSGTYPE :3;F INISHED LAST MESSAGE? 
BNE 118 33IF NOT: WAIT 
001172 MOV @4(SP), SFATAL ;3;GET ERROR @ 
006004 ADD @2,4(SP) 3;8UNMP RETURN ADDR. 
INC SMSGTYPE ;;TELL APT TO TAKE ERROR 
12$: CLRB $FFLG ;;CLEAR FATAL FLAG 
CLRB $LFLG ;;CLEAR LOG FLAG 
CLRB MFLG e's MESSAGE FLAG 
MOV (SP )+,R1 STACK INTO R1 
MOV (SP )+,RO ; POP STACK INTO RO 
RTS PC ; sRETURN 
SMFLG: .BYTE O ;:MESSG. FLAG 
*-FLG: .BYTE O 33LO0G FLAG 
sFFLG: .BYTE O 3;FATAL FLAG 
. EVEN 
APTSIZE=200 
APTENV=001 
APTSPOOL «100 
APTCSUP =040 


.SBTTL BINARY TO OCTAL CASCII) AND TYPE 

ff OORASOAREEESODEEEEESEEEEASESEESESEEESESSEAEDESEDEEEDESOEEEEOEEEE 

;*#THIS ROUTINE IS USED ps i A 16-BIT BINARY NUMBER TO A 6-DIGIT 
;*OCTAL CASCII) NUMBER AND TYPE IT 

;@$TYPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


;*CALL: 

34 MOV NUM, -C SP) 3 ;sNUMBER TO BE TYPED 

3a TvPOs 3;CALL FOR TYPEOUT 

.* .BYTE WN s:N*1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
3% BYTE M 33M*1 OR O 

;¢ 321*TYPE LEADING ZEROS 

7° ;;0=SUPPRESS LEADING ZEROS 

34 

se Gan an tte HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
;#$TYPOS OR $TYPOC 

3;*CALL: 

ie MOV NUM, -C SP) ; sNUMBER TO BE TYPED 

:4 TYPON ;;CALL FOR TYPEOUT 


3* 
;*$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 


;*CALL: 
;* MOV NUM, -( SP) ; ;NUMBER TO BE TYPED 


ES 
CVORCC ORVIIJ CIAG TST PRIL MACRO M1200 27 DFC-83 09:55 PAGE 16 5 
BINARY TO OCTAL (ASCII) AND TYPE 


;* TrYPOCc ;:;CALL FOR TYPEQUT 

014376 017646 000000 $TYPOS: MOV ac sP), -CSP) ;3PICKUP THE MODE 

014402 116637 9000001 014621 MOVB 1(0SP), SOF ILL 3;L0AD ZERO FILi SWITCH 

014410 112637 014625 MOVB (SP)+,SOMODE+1 ;;NUMBER OF DIGITS TO TYPE 

014414 062716 000002 ADD @2,(SP) ; ;sADJUST RETURN ADDRESS 

014420 000406 BR $TYPON 

014422 112737 000001 014621 ‘sTYPOC: MOVB 1, SOF ILL ;:;SET THE ZERO FILL SWITCH 

014430 112737 000006 014625 MOVB 06 , SOMODE +1 ;;SET FOR SIX(6) DIGITS 

014436 112737 000005 014620 sTYPON: MOVB @5, $SOCNT 3;SET THE ITERATION COUNT 

014444 010346 MOV R3,-CSP) ;:;SAVE R3 

014446 010446 MOV R4,-C(SP) 3:SAVE R4 

014450 010546 MOV RS, -(SP) ::SAVE RS 

014452 113704 014623 MOVB SOMODE +1,R4 :;;GET THE NUMBER OF DIGITS TO TYPE 

014456 005404 NEG R4 

014460 062704 000006 ADD 06 .R4 3 ;SUBTRACT IT FOR MAX. ALLOWED 

014464 110437 014622 MOVB R4, SOMODE ::;SAVE IT FOR USE 

014470 113704 014621 MOVB SOFILL .R4 3;;GET THE ZERO FILL SWITCH 

014474 016605 000012 MOV 12¢SP),R5S ;:PICKUP THE INPUT NUMBER 

014500 005005 CLR R3 ;;CLEAR THE OUTPUT WORD 

014502 006105 1$: ROL RS ;sROTATE MSB INTO “"C” 

014504 000404 BR 3$ ;;GO 00 MSB 

014506 006105 2s: ROL RS 3:;FORM THIS DIGIT 

014510 006105 ROL RS 

014512 006105 ROL 

014514 010502 MOV RS,R3 

014516 0061035 3$: ROL R3 ;;GET LSB OF THIS DIGIT 

014520 105337 014622 DECB sOMODE 3:;TYPE THIS DIGIT? 

014524 100016 BPL 7% ;;6R IF 

014526 042703 177770 BIC #177770,R3 3:GET RID OF JUNK 

014532 001002 BNE 43 33;TEST FOR O 

014534 005704 TST R4 spe THIS 0? 

014536 001403 BEQ 5$ 3;;8R IF YES 

014540 005204 4$: INC RS ;;D0N’T SUPPRESS ANYMORE 0'S 

014542 052703 000060 BIS @‘'O,R3  >MAKE THIS DIGIT ASCII 

014546 052703 000040 S$: BIs @’ ,RS 3 sMAKE ee IF NOT ALREADY 

014552 110337 014616 MOVB R3,8$ :3SAVE FOR TYPING 

014556 104401 014616 TYPE 8s 33GO TYPE a DIGIT 

014562 105337 014620 78: DECB sOCNT 3; ;COUNT BY 1 

014566 003347 BGT es 3;38R IF MORE TO DO 

014570 002402 BLT 6$ 3;8R IF DONE 

014572 005204 INC RE 33 INSURE LAST DIGIT ISN'T A BLANK 

014574 000744 BR es 3:GO DO THE LAST DIGIT 

014576 012605 6$: MOV CSP)+,RS ssRESTORE RS 

014600 012604 MOV (SP )+,R4 :sRESTORE R4 

014602 012603 MOV (SP)-, ;;RESTORE R3 

014604 01 000002 000004 MOV 2(SP),4(SP) 33SET THE STACK FOR RETURNING 

014612 012616 MOV (SP )+,(CSP) 

014614 RTI ; sRETURN 

014616 000 83: BYTE O ; s STORAGE FOR go DIGIT 

014617 000 -BYTE 0 3: TERMINATOR FOR TYPE ROUTINE 

014620 000 SOCNT: .BYTE 0 3:;O0CTAL DIGIT COUNTER 

014621 000 sOFILL: .BYTE 90 33ZERO FILL SWITCH 

014622 000000 SOMODE: .WORD 0 3s :;NUMBER OF DIGITS TO TYPE 
2168 . SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 


MTTTITT TTT TT TTT TTT TTT itt 
3@THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-OIGIT 
;@¢SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 


’ ‘ 
; s fy ; 


CvVORCC ORV11./ 
CONVERT BINARY 


DIAG TST PRT1 
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TO DECIMAL AND TYPE ROUTINE 


020200 
000020 


000055 


015040 
000040 


015030 


000001 
000060 
000040 


000010 


177777 


015040 
000002 


000001 


177777 


177776 


000004 


;*NUMBER IS POSITIVE OR NEGATIVE A SPACE 


, 5 


OR A MINUS SIGN WIL. BE TYPED 


;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
;*REPLACED WITH SPACES. 


1$: 


2s: 
3$: 


4$: 


5$: 


9$: 


sDTBL: 


ALL: 


MOV NUM, -( SP) 
TYPOS 
MOV RO, -CSP) 
MOV R1,-CSP) 
MOV R2,-CSP) 
MOV R3,-CSP) 
MOV »- CSP) 
MOV #20200, -( SP) 
MOV 20(SP),RS 
BPL 1$ 
NEG RS 
MOVB @'-,10SP) 
CLR RO 
MOV @sDBLK RS 
MOVB @ ,CR3)-+ 
CLR 
MOV SOTBLCRO),R1 
SUB ° 
BLT $ 
INC R2 
BR 2 
ADD R1,R5 
TST Re 
BNE S$ 
TSTB CSP) 
BMI 7$ 
ASLB CSP) 
BCC 6$ 
MO 1€SP),-1¢€R3) 
BIS o'0O,R2 
BIS @' ,R2 
MOVB R2,CR3)+ 
TST )e 
CMP RO,@10 
BLT $ 
BGT $ 
MOV RS,R2 
BR 6$ 
TSTB (SP )-+ 

9% 

-1CSP), -2(R3) 
CLRB ) 
MOV CSP)+,RS 
MOV CSP )+,RS 
MOV (SP )+,R2 
MOV (SP)+,.R1 
MOV (SP)+,RO 
TYPE . $SDBLK 
MOV 2(SP),4(SP) 
RTI 
10000. 


;;PUT THE BINARY NUMBER ON THE STACK 
3:;GO TO THE ROUTINE 


;s3PUSH RO ON STACK 


;;PUSH RS STACK 
‘oe. a a = SIGN 
33 


CONSTAN 
;;FORM THIS BCD DIGIT 
33 IF DONE 
; ; INCREASE THE BCD DIGIT BY 1 


;;ADD BACK THE CONSTANT 
;;CHECK IF BCD . 
3:FALL THROUGH IF 

;;STILL DOING LEADING 0'S? 
3;6R YES 


SIGN 

+sMAKE THE BCD DIGIT ASCII 

:sMAKE IT A SPACE IF NOT ALREADY A DIGIT 
;sPUT THIS EMENTING IN THE OUTPUT BUFFER 


TO ASCII 
WAS THE LSD THE FIRST NON-ZERO? 
:;B8R IF NO 
; SYES--SET THE —- TYPING 


S 
33POP STACK INTO Ri 
33POP STACK INTO RO 
:3NOW TYPE THE NUMBER 
;;ADJUST THE STACK 


; ;sRETURN TO USER 


SEG 9057 


(55 
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f & 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE =e os 
015032 001750 1000. 
015034 000144 100. 
015036 900012 10. 
015040 $DBLK: .BLKw 4 
2169 "SBTTL ERROR HANDLER ROUTINE 


| EPPAAREESESSEHESESEEEEEEEEEEESEEESEAEEEEEEEEESERESEEESEODEEREEEODS 
;*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
;#SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
;*AND GO TO SWRCK ON ERROR 

;*THE SWITCH OPTIONS oo ae BY THIS ROUTINE ARE: 


;#SW15-1 HALT ON ERR 
;*SW13-1 INHIBIT ERROR TYPEOUTS 
;*#SWO9=1 LOOP ON ERROR 
;*CALL 
;* ERROR WN ; ;ERROR=EMT AND N-ERROR ITEM NUMBER 
015050 SERROR: 
015050 104407 CKSWR ;;TEST FOR CHANGE IN SOFT-SwR 
015052 104407 CKSWR :GO LOOK FOR SWR CHANGE 
015054 105237 001103 7$: INCB SERFLG ;3;SET THE ERROR FLAG 
015060 001775 BEG 7% ;;DON'T LET THE FLAG GO TO ZERO 
015062 013777 001102 164052 MOV $TSTNM, @DISPLAY ; ]DISPLAY TEST NUMBER AND ERROR FLAG 
015070 005237 001112 INC SERTTL ;:INC THE ERROR COUNT 
015074 0116357 001116 MOV CSP), SERRPC :;GET ADDRESS OF ERROR INSTRUCTION 
015100 162737 09000002 001116 SUB 62, SERRPC 
015106 117737 164004 001114 MOVB SSERRPC,SITEMB ;;STRIP AND SAVE THE ERROR ITEM CODE 
015114 032777 020000 164016 BIT —" 13,8SWR 3;SKIP TYPEOUT IF SET 
015122 001004 BNE ;;SKIP TYPEOUTS 
015124 004737 015224 JSR PC, * SWRCK ::;GO TO USER ERROR ROUTINE 
015130 104401 001165 TYPE » $CRLF 
015134 20%: 
015134 122737 000001 001210 CMPB @APTENV, SENV ; sRUNNING IN APT MODE 
015142 001007 BNE 2s :3NO,SKIP APT ERROR REPORT 
015144 113737 001114 015156 MOVB SITEMB 21% :;SET ITEM NUMBER AS ERROR NUMBER 
015152 004737 014146 JSR PC, SATY4 ; sREPORT FATAL ERROR TO APT 
015156 000 21$: BYTE O 
015157 BYTE O 
015160 000777 223: BR 2e$ ;;APT ERROR LOOP 
015162 005777 163752 2s: TST SSWR ;;HALT ON ERROR 
015166 100002 BPL 3$ :3SKIP IF CONTINUE 
015170 000000 HALT ;;HALT ON ERROR! 
015172 104407 CKSWR :3;TEST FOR CHANGE IN SOFT-SWR 
015174 032777 001000 163736 3%: BIT @BITO9,SSWR ;;LOOP ON ERROR SWITCH SET? 
015202 001402 BEG a3 ;;6R IF 
015204 013716 001110 MOV $LPERR CSP > 3;FUDGE RETURN FOR LOOPING 
015210 005737 001162 4$: TST SESCAPE ; ;CHECK FOR AN ESCAPE ADDRESS 
015214 001402 BEG S$ 33;B8R IF NONE 
oraeee 013716 001162 - MOV SESCAPE .(CS *) ;3FUDGE RETURN ADDRESS FOR ESCAPE 
015222 000002 RTI 3; RETURN 
2170 5 { PERHEEEEEEESAEEEEESEES LASHEAEEOASESEEEEEDADESADEEEEDEEEEDEEEEESS 
2171 ;GO TYPE ERROR 
2172 ;GO UPDATE SOFTWARE SWR IF ‘CNTRL/G’ 
2173 Tee amen ee ge ag = ar a mas 
2174 015224 113737 001102 001362 SWRCK: MOVB $TSTNM, [STNUM ;SET UP TEST @ ON ER 
2175 015232 004737 015242 JSR PC, SERRIYP ;GO TYPE ERROR 
2176 015236 104407 CKSWR :GO LOOK FOR SWR CHANGE 


2177 015240 000207 RTS PC ;RETURN TO ERROR HANDLER 


i‘ 
CVDRCC ORVLI1I CIAG TST PRI1 MACRO M1200 27 DEC -83 09:55 PAGE 166 
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21768 .SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
Perr rr tri r rt iti rrr irri iri ir iitititititiiiiititiiiitiriiiiiii yyy) 
;#THIS ROUTINE USES THE “ITEM CONTROL BYTE“ CSITEMB) TO DETERMINE WHICH 
;*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE "ERROR TABLE” ( SERRTB), 
;#AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 


SEG G0S9 


015242 SERRTYP: 
015242 104401 001165 TYPE . $CRLF 3; "CARRIAGE RETURN” & “LINE FEED” 
015246 010046 MOV RO, -(SP) ;:SAVE RO 
015250 005000 CLR RO ;;PICKUP THE ITEM INDEX 
015252 153700 001114 BISB aes I TEMB,RO 
015256 001004 BNE i$ 3;IF ITEM NUMBER IS ZERO, vuSsT 
;;TYPE THE PC OF THE ERROR 
015260 013746 001116 MOV SERRPC, -( SP) ;:;SAVE SERRPC FOR TYPEOUT 
;;ERROR ADDRESS 
015264 104402 TYPOCc 33;GO TYPE--OCTAL ASCIICALL DIGITS) 
015266 000426 BR 6$ 3;GET OuT 
015270 005300 1s: DEC RO ;;ADJUST THE INDEX SO THAT IT WILL 
015272 006300 ASL RO 33 WORK FOR THE ERROR TABLE 
015274 006300 ASL RO 
015276 006300 ASL RO 
015300 062700 001252 ADD &sERRTB,RO :;FORM TABLE POINTER 
015304 012037 015314 MOV CRO)+,2$ ;:;PICKUP “ERROR MESSAGE” POINTER 
015310 001404 BEQ 3$ 3;SKIP TYPEOUT IF NO POINTER 
015312 104401 TYPE 3;;TYPE THE “ERROR MESSAGE” 
015314 000000 2s: -WORD O 3; “ERROR MESSAGE” POINTER GOES HERE 
015316 104401 001165 TYPE » SCRLF 33; "CARRIAGE RETURN” € "LINE FEED” 
015322 012037 0153552 3$: MOV CRO)+, 48 3;;PICKUP “DATA HEADER” POINTER 
015326 001404 BEG 5$ 33SKIP TYPEOUT IF ¢ 
015330 104401 TYPE ;3;1TYPE THE “DATA HEADER” 
015332 000000 4$: .WORDB O 33 "DATA HEADER” POINTER GOES HERE 
015334 104401 001165 TYPE . $CRLF 3; "CARRIAGE RETURN” € “LINE FEED” 
015340 011000 S$: MOV CRO),RO 3;;PICKUP “DATA TABLE” POINTER 
015342 001004 BNE 7$ 3;GO TYPE THE DATA 
015344 012600 63: MOV CSP)+.RO 3 sRESTORE RO 
015346 104401 001165 TYPE » $CRLF 33; "CARRIAGE RETURN” € “LINE FEED” 
015352 000207 RTS PC ; sRETURN 
015354 7$: 
015354 013046 MOV @CRO)+,-C SP) ow 8CRO)+ FOR TYPEOU 
015356 104402 TYPOC 3:GO TYPE--OCTAL ASCTICALL DIGITS) 
015360 005710 TST CRO) 3:1S THERE ANOTHER NUMBER 
015362 001770 BEQ 6$ ;;8R IF NO 
015364 104401 015372 TYPE 8% ; TYPE TWOC2) SPACES 
015370 000771 BR 7$ ; ;LO0P 
015372 040 040 000 8%: — Se 3:TWOC2) SPACES 
2179 .SBTTL SCOPE HANDLER ROUTINE 


ss Sognenmbnnnanennasenatenseseescoeconsocesononcoonccscassoo;so£e 
3@THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREME 

;#AND LOAD THE TEST NUMBER(CSTSTNM) INTO THE DISPLAY REG. (DISPLAY <7: :0>) 
;#AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:06> 

| «THE SWITCH athe onl sa BY THIS ROUTINE ARE: 


3*#SW14-1 TEST 

;*#SWll-1 INHIBIT ITERATIONS 
;*SWO9=1 LOOP ON ERROR 

3; *SWO8=1 LOOP ON TEST IN SWR<7:0> 
; *CALL 


;¢ SCOPE ;;SCOPE=IOT 


CvDRCC ORViI1J CIAG TST PRT1 
SCOPE HANDLER ROUTINE 


2160 


015576 
015376 


104407 
032777 
001114 


040000 


TS 
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163532 


163464 
001102 


001105 
163426 
001106 


163374 


001104 


001104 
001160 


001174 


001115 
163274 


1%: 


BNE 
; P@GGeSTART 


$xTSTR: 


5$: 


2s: 


7$: 
4$: 


3$: 


1%: 


$SVLAD: 


sOVER: 


$MXCNT : 


BR 
MOV 


BEQ 


CLR 
MOVB 
MOV 
MOV 
RTI 
SO. 


p> Lad &SWR 


oS$ — 


VLAD 
(SP)+,CSP)-+ 
tae QOERRVEC 


SEQ 90060 


;sTEST FOR CHANGE IN SOFT -SWR 
;;LOOP ON PRESENT TEST? 
33YES IF Swi4-i 


sOveE 
OF wr FOR THE XOR TESTEROO000 


331F RUNNING ON THE “XOR” TESTER CHANGE 
, THIS INSTRUCTION TO A “NOP” (NOP +240) 
;3;SAVE THE CONTENTS OF THE ERROR VECTOR 
;3;SET FOR TIMEOUT 
33;TIME OUT ON XOR? 
; ;RESTORE THE ERROR VECTOR 
3;:GO TO THE NEXT TEST 
3;CLEAR THE STACK AFTER A TIME OUT 
pry 2 ORE THE ERROR VECTOR 

:;LO0P ON THE PRESENT TEST 


CODE FOR THE XOR’ TESTER@GOGO 


_ » 8SWR 
QSWR, $TSTNM 
sOVER 

sERFLG 

3$ 

_ » SERFLG 
phere 
— » $LPADR 


CNT 
sTIMES, $ICNT 
sOVER 


#1, $ICNT 
SMXCNT, $STIMES 
TSTNM 


3 

STSTNM, $TESTN 
(SP), $LPADR 
(SP), $LPERR 
SESCAPE 


ESC 
#1, SERMAX 
$TSTNM, DISPLAY 
SLPADR , (SP) 


-SBTTL TTY INPUT ROUTINE 


MPTTTTITITITTT TTT TTT TTT TTT Tittle 


. ENABL 


LSB 


;;LOO0P ON SPEC. TEST? 
;;8R IF NO 

;;ON THE RIGHT TEST? 
3;8R IF YES 

::HAS AN ERROR OCCURRED? 


;;BR IF 
;;MAX. ERRORS FOR THIS TEST OCCURRED? 


SWR<7:0> 


33SET LOOP ADDRESS TO LAST SCOPE 


33ZERO THE ERROR FLAG 

+ SCLEAR THE NUMBER OF ia TO MAKE 
;;ESCAPE TO THE NEXT TEST 

; ae : TERATIONS? 


;;8R IF 

iT FIRST PASS OF PROGRAM 

INHIBIT ITERATIONS 
i sINCREMENT ITERATION COUNT 
3:;CHECK THE NUMBER OF ITERATIONS MADE 
3:;8R IF MORE ITERATION REQUIRED 
; sREINITIALIZE THE ITERATION COUNTER 
33;SET NUMBER OF ITERATIONS TO DO 
;;COUNT TEST NUMBERS 
3;SET TEST NUMBER IN APT MAILBOX 
:;SAVE SCOPE LOOP ADDRESS 
3:;SAVE ERROR LOOP ADDRESS 
;:;CLEAR THE ESCAPE FROM ERROR ADDRESS 
;;ONLY ALLOW ONEC1) ERROR ON NEXT TEST 
;;DISPLAY TEST NUMBER 
:3FUDGE RETURN ADDRESS 
s3F IXES PS 
33MAX. NUMBER OF ITERATIONS 


£ fF PSHASASSSSSSHESESHSASESEASSSESESSEEEASEASEEAEESESEASESEESEEEEEEESES 


; @SOF TWARE SWITCH REGISTER CHANGE ROUTINE. 


;@#ROUTINE IS ENTERED FROM THE TRAP HANOL 


ER, 


AND WILL 
;*SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 


AS 
CvORCC ORVI1IJ CIAG TST PRTI1L MACRO M1200 27-DEC-83 09:55 PAGE. . 8 
TTY INPUT ROUTINE 


SES GO461 


;*#WHEN OPERATING IN TTY FLAG MODE. 


015656 022737 000176 001140 $CKSUR: CMP @SWREG , SWR :3:I1S THE SOFT-SWR SELECTED? 
015664 001074 BNE 15$ ;;BRANCH IF NO 
015666 105777 163252 TSTs6 asTKS ;;CHAR THERE? 
015672 100071 BPL 15$ 3;IF NO, DON'T WAIT AROUND 
015674 117746 163246 MOVB Qs TKB, -(SP) ;;SAVE THE CHAR 
015700 042716 177600 BIC @tC177,(SP) ::STRIP-OFF THE ASCII 
015704 022726 000007 CMP @7,(SP)-+ ;3IS IT A CONTROL G? 
015710 001062 BNE 15$ ;3NO, RETURN TO USER 
015712 123727 001134 000001 CMPB SAUTOB, #1 ;;ARE WE RUNNING IN AUTO-MODE? 
015720 001456 BEQ 15$ 3 ;BRANCH IF YES 
015722 104401 016413 TYPE » $CNTLG ;;ECHO THE CONTROL-G (ftG) 
015726 104401 016420 $GTSWR: TYPE . $MSWR :; TYPE CURRENT pe oe 
015732 013746 000176 MOV SWREG, -( SP) 3;SAVE SWREG FOR TYPE 
015736 104402 TYPOC 3:;GO TYPE--OCTAL ASCTICALL DIGITS) 
015740 104401 016431 TYPE . SMNEW 3 ;PROMPT FOR NEW SWR 
015744 005046 19$: CLR -(SP) ;;CLEAR COUNTER 
015746 005046 CLR -(€SP) 3; THE NEW SWR 
015750 105777 163170 7$: TSTB asTKS ;:;CHAR THERE? 
015754 100375 BPL 7$ 3:IF NOT TRY AGAIN 
015756 117746 163164 MOVB asTKB, -C SP) 3;PICK UP CHAR 
015762 042716 177600 BIC #tC177,(SP) ;:MAKE IT 7-BIT ASCII 
015766 021627 0900025 9$: CMP (SP),¢25 ::3I1S IT A CONTROL -U? 
015772 001005 BNE 10$ ; ;BRANCH IF NOT 
015774 104401 016406 TYPE » SCNTLU 3;YES, ECHO CONTROL-U (tU) 
016000 062706 000006 20%: ADD #6, SP 3: IGNORE PREVIOUS INPUT 
016004 000757 BR 19$ 3;LET'S TRY IT AGAIN 
016006 021627 000015 10$: CMP (SP),@15 :31S IT A <CR>? 
016012 001022 BNE 16$ ; ;BRANCH IF NO 
016014 005766 000004 TST 4(SP) YES, IS IT THE FIRST CHAR? 
016020 0014035 BEG 11% ;;BRANCH IF YES 
016022 016677 000002 163110 MOV 2( SP), @SWR 3;SAVE NEW SUR 
016030 062706 000006 11$: ADD #6 .,SP 3;CLEAR UP STACK 
016034 104401 001165 14$: TYPE » $CRLF ;:;ECHO <CR> AND <LF> 
016040 123727 001135 000001 CMPB SINTAG, #1 3 ;RE-ENABLE TTY KBD INTERRUPTS? 
016046 001003 BNE 15% : sBRANCH IF NOT 
016050 012777 000100 163066 MOV #100 ,asTKS 3; ;RE-ENABLE TTY KBD INTERRUPTS 
016056 000002 15$: RTI 3; sRETURN 
016060 004737 014006 16$: JSR PC, $TYPEC 3;ECHO CHAR 
016064 021627 000060 CMP (SP), #60 3:CHAR < 0? 
016070 002420 BLT 18% ; ;BRANCH IF YES 
016072 021627 000067 CMP CSP), 067 ;;CHAR > 7? 
016076 003015 BGT 18% ;;BRANCH IF YES 
016100 042726 000060 BIC 660.(SP)>+ :;STRIP-OFF A 
016104 005766 000002 TST 2(sP 331S THIS es FIRST CHAR 
016110 001403 BEQ 17$ IF Y 
016112 006316 ASL (SP) 33NO, SHIFT PRESENT 
016114 006316 ASL (SP) " 0 TO MAKE 
016116 006316 ASL (SP) ROOM FOR NEW ONE. 
016120 005266 000002 17$: INC 2( SP) ; sKEEP COUNT OF CHAR 
016124 056616 177776 BIS -2(SP), CSP) 33SET IN NEW CHAR 
016130 000707 aR 7$ 33GET THE NEXT ONE 
016132 104401 001164 18%: TYPE . $QUES 33 TYPE ?<CR><LF> 
016136 000720 on a 20% ;sSIMULATE CONTROL -U 

e L 


£ EAASSSAEEKS SESEAAAESEEAEAEESEESEEALASEEEAEESEESEESEEEASEEAESEESEEEES 


;¢THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


016140 


CvDRCC DRVI1J CIAG TS! 
TTY INPUT ROUTINE 


PRT1 


016376 
016406 


000177 
001164 
016374 
016374 
000015 


177777 
001166 


000004 
016376 


ier 


MACRO M1200 
; CALL: 
;* HR 
;* RETURN HERE 
;* 
SRDCHR: MOV (SP), -CSP) 
000002 MOV 4(SP),.2CSP) 
1$: TSTB8 asTKS 
BPL 1$ 
000004 MOVB asTKB,4(SP) 
000004 BIC @tC<177>,4(SP) 
000023 CMP 4(SP),¢23 
BNE 3$ 
2s: TSTB asTKS 
BPL 2$ 
MO @sTKB, -CSP) 
BIC @tC177,CSP) 
CMP (SP)+, #21 
BNE 2$ 
BR i$ 
000021 3%: CMP 4(SP),@$X0ON 
BEG 1$ 
000140 CMP 4(SP),0140 
BLT 4$ 
000175 CMP 4(SP),¢175 
BGT aS 
000004 BIC #40 ,4( SP) 
4$: RTI 
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3;INPUT A SINGLE CHARACTER FROM THE [Tr 
; CHARACTER IS ON THE STACK 
:sWITH PARITY BIT STRIPPED OFF 


;3PUSH DOWN THE PC 
;;SAVE THE PS 


;;GET RID OF JUNK IF ANY 

:31S IT A CONTROL -S? 

; ;BRANCH IF NO 

;;WAIT FOR A CHARACTER 

;;LOOP UNTIL ITS THERE 

;;GET CHARACTER 

;;sMAKE IT 7-BIT ASCII 

331S IT A CONTROL -Q? 

33IF NOT DISCARD IT 
SUME 


;RANOOL 
;RANOO!L 
:31S IT UPPER CASE? 

; ;BRANCH IF YES 

3:;I1S IT A SPECIAL CHAR? 

;3BR IF YES 

:sMAKE IT UPPER CASE 

;:GO BACK TO USER 


Ss PSSSESSASSSESESESAASALEESESASSESEASESESESESESEESESEHAAEEEEEESESESEESE 


3#THIS ROUTINE WILL INPUT A STRING FROM THE TTY 


;#CALL: 
3% RDLIN 
34 RETURN HERE 
;* 
$RDLIN: MOV R3,-CSP) 
1%: MOV @#sTTYIN,R3S 
2s: CMP OSTTYINeS. ,R3S 
BLOS oy 
ROCHR 
MOVE C(SP)+,CR3) 
10%: #177,CR3) 
BNE 3$ 
4$ TYPE . $QUES 
BR i$ 
3$: MOVB CR3),9% 
TYPE 98 
BNE 2$ 
CLRB -1CR3) 
TYPE , $LF 
MOV CSP)+,R3 
MOV (SP), -CSP) 
MOV a(SP), 2¢( SP) 
MOV OsTTYIN, 4( SP) 
RTI 
9$: -BYTE 0 
BYTE 0 


;s;INPUT A STRING FROM THE TTY 

;;ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
a WILL BE A BYTE OF ALL O'S 

8% 


3;GET ADDRESS 
;;BUFFER FULL? 
33 IF YES 
3;;GO READ ONE CHARACTER FROM THE TTY 
5 GET CHARACTER 
331S IT A RUBOUT 
33SKIP IF NOT 
s3sTYPE A ‘?' 


;;CLEAR THE BUFFER AND LOOP 
;;ECHO THE CHARACTER 


;:;CHECK FOR oe 

33L00P IF NOT RETURN 

;:;CLEAR RETURN (THE 15) 

3;TYPE A LINE FEED 

; sRESTORE R3 

;;ADJUST THE STACK AND PUT ADDRESS OF THE 
$3 FIRST ASCII CHARACTER ON IT 


; sRETURN 
;;STORAGE FOR ASCII CHAR. TO TYPE 
; ; TERMINATOR 


CvDORCC ORVIIS CIAG TST PRIL 
TTY INPUT ROUTINE 


2181 


2162 


016376 
0 


016512 


016514 


012757 


162374 


016442 
000340 


| 5 
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$TTYIN: .BLKB 8. ; sRESERVE 8 i FOR TTy INPUT 
O15 $sCNILU: .ASCIZ /tU/<15><12> ; CONTROL 
015 SsCNTILG: .ASCIZ /tG/<15><12> ;:;CONTROL “GG” 
123 $MSWR: .ASCIZ <15><12>/SWR - / 
040 
000 
116 $MNEW: .ASCIZ / NEW = / 
040 
000 
.SBTTL POWER DOWN AND UP ROUTINES 
| § SOO44464646464640646444646464646466446464 $2£264242644644664646444646464666666666664666466686 
sPOWER DOWN ROUTINE 
000024 $PWRDN: MOV @SILLUP ,@OPWRVEC ;;SET a FAST UP 
000026 MOV 0340 ,B@PWRVEC+2 ;;PRIO:7 
MOV RO, -¢ ;;PUSH RO ON STACK 
MOV R1,-CSP) ;;PUSH R1 ON STACK 
MOV 2.-CSP) ;;PUSH R2 ON STACK 
MOV 3,-CSP) ;;PUSH R3 ON STACK 
MOV R4,-CSP) 3;PUSH R4 ON STACK 
MOV » - (SP) ;;PUSH RS ON STACK 
MOV WR, -CSP) ;;PUSH @SWR ON STACK 
MOV SP , $SAVR6 ;;SAVE SP 
000024 ae @SPWRUP ,BGPWRVEC ;;SET UP VECTOR 
BR * -2 a 3; HANG UP 
| fF PMOAAAEEREAESRESESESEEEELEASAAEEEEEEEEEEEEOEEEEEEEEEEDEDEEEDEDS 
;POWER UP ROUTINE 
000024 $PWRUP: MOV @SILLUP,BOPWRVEC ;;SET FOR FAST DOWN 
MOV $SAVR6 , SP ; sGET 
CLR $SAVRE6 ;;WAIT LOOP FOR THE TTY 
1$: INC $SAVRE6E 3;WAIT FOR THE INC 
BNE 3;;0F WORD 
MOV (SP )+,@SWR 3:POP STACK INTO &SWR 
MOV (SP)+, :3;POP STACK INTO R5 
MOV CSP)+.R 3;POP STACK INTO R4 
MOV CSP )-+, 33;POP STACK INTO R3 
MOV (SP), 33POP STACK INTO R2 
MOV CSP )+,R1 83 TACK INTO Ri 
MOV (SP)+,RO ;3POP STACK INTO RO 
000024 MOV @$PWRDN,BOPWRVEC ;;SET UP THE POWER DOWN VECTOR 
000026 MOV 0340, BOPWRVEC +2 ;sPRIO:7 
TYPE 3 ;REPORT THE POWER FAILURE 
$PWRMG: .WORD $PWRMSG ; POWER FAIL MESSAGE POINTER 
MOV CPC )+, CSP) ;sRESTART AT START1L 
$PWRAD: Pa START1 ;;RESTART ADDRESS 
S$ILLUP: HALT 33 THE POWER UP SEQUENCE WAS STARTED 
BR --2 3; BEFORE THE POWER DOWN WAS COMPLETE 
$SAVR6: O ;;PUT THE SP HERE 
Eo PWRMSG: .ASCIZ <15><12>/RESTARTED FROM PWR FAIL/ 
124 
040 
117 
120 


cE 


” 


(yt, * 


CvORCC 


ORV11S 


POWER DOWN AND 


2185 
2184 


2190 


016636 
016641 
016644 


016704 


016731 


DIAG TS! PRTI1 


UP ROUTINES 
127 122 
106 101 
114 000 
010046 
016600 000002 
005740 
111000 
300 
016000 016702 
200 
011646 
016666 000004 
000002 
016670 
013574 
014422 
014376 
14436 
014624 
015726 
015656 
016140 
016270 
015 012 
126 104 
1035 103 
104 122 
061 061 
040 104 
101 107 
124 105 
124 040 
101 122 
040 061 
040 015 
000 
015 012 
122 126 
061 112 
103 101 


MS 
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r fy 
040 
111 
.EVEN 


000002 


.SBTTL TRAP DECODER 

5 PORES REEEESRESEEESESESEREEEEEROEEEREEEEREOEREEEEEEOEEEEEDSOEEEES 
;#THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE “TRAP” INSTRUCTION 
;#AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
;#GO0 ~~ THAT ROUTINE. 


$ TRAP MOV RO, -CSP) ;:;SAVE RO 
MOV 2(SP),RO ;:GET TRAP ADDRESS 
TST -CRO) ;;BACKUP BY 2 
MOVB CRO),RO ;;GET RIGHT BYTE OF TRAP 
ASL 0 ;:;POSITION FOR INDEXING 


R 
MOV ee »RO + s INDEX TO TABLE 


RTS 33GO TO ROUTINE 
;;THIS IS USE TO HANDLE THE “GETPRI ” MACRO 
$TRAP2: MOV (SP), -CSP) ;;MOVE THE PC DOWN 


MOV 4(SP),2(SP) ;:MOVE THE PSW DOWN 
1 ;:;RESTORE THE PSW 
.SBTTL TABLE 
;#THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
3;@BY THE “TRAP” INSTRUCTION. 
; ROUTINE 
; --<«e8<« «+ « 
$TRPAD: .WORD $TRAP2) 
$TYPE 3; sCALL=TYPE TRAP +10104401) TTY TYPEOUT ROUTINE 
$TYPOC ;;CALL=TYPOC TRAP +2(104402) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
$TYPOS ;;CALL=TYPOS TRAP +3( 104403) TYPE OCTAL NUMBER ( EADING ZEROS) 
$TYPON ;;CALL=TYPON TRAP +4( 104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
$TYPDS ICALL =TYPDS TRAP +5( 104405) TYPE DECIMAL tw (WITH SIGN) 
$SGTSWR ;;CALL=GTSWR TRAP +6( 104406 ) T SOFT-SWR SETT 
SCKSWR ;;CALL=CKSWR TRAP+7( 104407) TEST FOR CHANGE IN SOFT-SWR 
§ 3; ;CALL =RDCHR TRAP +10( 104410) TTY TYPEIN CHARACTER ROUTINE 
$RDLIN ;;CALL=ROLIN TRAP +11(0104411) TTY TYPEIN STRING ROUTINE 


-SBTTL ASCII MESSAGES 


;:;GPA TITLED: -ASCIZ <15><12>/CVDRCA ORV11J DIAG TEST PART 1 /<15><12> 
33JRS TITLED: -ASCIZ <15><12>/CVDORCB ORV11J DIAG TEST PART 1 /<15><12> ;;GPA 
TITLEO: .ASCIZ <15><12>/CVDORCC ORV11J DIAG TEST PART 1 /<15><12> 33 JRS 


TLCABL: .ASCIZ <15><12>/DRV11J CABLE REQ'D/<15><12> 


CvORCC DRV11J DIAG TST PRTIL 
ASCIT MESSAGES 


2191 
2192 


0 
2193 
0 


2194 


2195 


2196 


0 
2197 
0 


0 
2196 
0 


2199 


0 
2200 
01 


017007 
017012 
017015 
017020 


017022 
0 


S. 
a 
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EM1: 


EMe: 


EM3: 


EM4: 


EMS: 


EM6: 


EM7: 


DH1: 


-ASCIZ 


.ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


.ASCIZ 


.ASCIZ 


/REG TIMEOUT ER/ 


‘REG READ/WRITE ER‘ 


ZIRR REG ER/ 


ZACR REG ER/ 


7IMR REG ER/ 


/ISR REG ER/ 


/CHIP STAT ER/ 


ZERRPC TSTNUM BUSADR EXPCT £RCVD/ 


ZERRPC TSTNUM BUSADR ADRS EXPCT 


RCVD/ 


SEQ O04S 


CVDRCC ORVIIS CIA, TST PRIL 
ASCII MESSAGES 


017270 


001116 
001124 


001116 
001120 
000000 
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001122 
000000 


001122 
001126 


OT1: 
OTe: 


tor, 
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-EVEN 
SERRPC, TSTNIM, SBDADR, SGODAT, S8DDAT ,O 
SERRPC , TSTNUM, SBDADR, $CNADR, SGODAT , SBDDAT ,O 


CVDORCC ORVIIS CI4G TS) PRIL 
FALCON (KxXT-11) UPGRADE ROUTINES. 


177777 
000400 


MACRO M1200 


000140 


“¢, 
27? DEC-83 99:55 PAGE 17 
;3GPA 


-SBTTL FALCON (KXT-11) UPGRADE ROUTINES. 


TO DETERMINE WHETHER WE'RE A 
THE I/0 PAGE (26K TO 31K). 


WE CAN STOP THE SUCKER !! 


Ties © Ge oF OF Ge Ge oF Se Ge Ge Ge Ge Ge a 


OR NOT, 


WE'LL SIZE Tre 
FALCON HAS 2KkW LOCAL RAM AT 
AND A MACRO-ODT AT 30K TO 51K. 


CONSEQUENTLY, 


BE PLACED BETWEEN 174000 AND 177776. 
EMT AND TRAP SERVICE LEVEL TO PRI6, AND SET THE HALT VECTOR SO THAT 


ADOI TIONAL 


THE FOLLOWING ROUTINES HAVE BEEN ADDED TO ALLOW OIAGNOSTIC(S) 
TO RUN ON A FALCON (KXT-11) a titan inn 


ist 


26K( +4) TO 
ALL 170 DEVICES Must 
LY, WE'LL STRAP THE 


TO MINIMIZE THE IMPACT OF THESE CHANGES ON FINAL PROGRAM SIZE, 
BULK OF pe Am IS PLACED IN THE FLOATING VECTOR SPACE (400- nn Phy BE 


DONE >. 
STATE. 


IF THE CPU AT HAND IS A FALCON (KXT11), IT STAYS THERE (NO HARM 
OTHERWISE, THE AREA IS RESTORED TO ITS ORIGINAL “TRAP -CATCHER” 
ALCON: INC @-1 s ONCE-ONLY !3! 
BNE is 
CALL KXTCHIK ; gh fee oy ——, 
1%: TST CPC )- ; TEST FALCON FLAG. 
KXTFLAG: O S.- a = FALCON.. 
RETURN ;...AND RETURN TO CALLER. 
sSvPC= . 
2 4 ; RESTORE FROM 374:376 AT END 
KXTCHK: CLR KXTFLAG ; ASSUME NOT FALCON. 
MOV 804, -(SP) ; SAVE ERROR VECTOR. 
MOV 02% ,804 ; SET A TRAP CATCHER. 
MOV #160010,R0 ; FALCON RAM STARTS AT 28K-4. 
18: TST CRO)« i 
240 
ay + linet ; SIZE TO 31K. 
MOV RO, KXTFLAG ; MUST BE FALCON, SET THE FLAG 
MOV #40 ,RO ; GET PRI1 BIT. 
BIC - 866 ;...AND LOWER BUS-ERROR. 
BIC RO ,8016 ee 
BIC RO ,.8@22 3...10 eee 
BIC - 8032 Te oe 
MOV #170000 , 80140 s ENABLE “ HALT. 
MOV (SP)+, ; RESTORE "ERROR VECTOR... 
RE TURN Bece RETURN. 
2s: MOV @3$,(SP) ; TRAP -- NOT A FALCON.. 
RTI 3... CONTINUE. 
3$ MOV (SP)+, 204 ; RESET ERROR VECTOR 
MOV #402 ,.RO ; SET-UP TO RESTORE FLOATING... 
MOV SP, s SAVE STACK POINTER IN R2 
MOV 06% ,R4 
4$: MOV -(R4), -CSP) ; PUSH THE RESTORE CODE... 
ee ‘hai ;...ONTO THE STACK. 
$ 


SP .PC 


AND EXECUTE IT. 


33GPa 


3/4 OF 


THE 


3 :GPA 
3; 3GPA 
3;GPA 
33GPA 
3 ;GPA 
3 ;GPA 


3; sGPA 
3 3GPA 
33GPA 
3; ;GPA 
3; 3;GPA 
3; 3:GPA 


350 


- (A, . 


CvORcc 


DRv iis Clas TS!' PRI 
FALCON (KXT-11) UPGRADE ROUTINES. 


pieeyed 177776 


000104 


017350 
017350 
000001 
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6%: 


; 
; IF FALCON, 


Ut, 
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;;GPA 


THIS CODE IS RELOCATED TO AND EYECUTED IN THE STACK AREA, 


RO, -2(RO) : ‘REST ORE .+2. 
R1,(RO) -MALT COR IOT). 
(RO)+,(RO)+ 

0,0776 

53 ; LOOP ‘TIL DONE 
R2,SP ; THEN RESTORE SP. 


;...AND RETURN TO CALLER 


THIS AREA IS FREE FOR ANY PROGRAM UNIQUE 


; CHANGES OR DATA STRUCTURES. 


; IF USED, YOU'D BETTER PROTECT IT !!! 
» 
SFREE* § <1000-.>/2 ; FREE WORDS LEFT. 
. = $SVPC 
LASTAD= . 
-ENO 


tS 


‘fy “ 


l-¢, 
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SEG 9069 
SYMBOL TABLE 
ABASE - 164160 BGPAT1 013274 DSWR «= 177570 PVMA = 000340 TSTIil 003422 
ACDW1 = 000000 BITO = 000001 DT1 017276 PWRMSG 016614 TSTI2 003516 
ACDWe = 000000 BITOO = 000001 DT2 017312 PWRVEC= 000024 TST13) §©0036i2 
ACPUOP= 000000 BITO1L = 000002 EDCHP1 0133514 RDCHR = 104410 TST14 003706 
ACRLOC 001400 BITO2 = EDCHP2 0153352 ROLIN = 104411 TST15 0 
ADDWO « 000000 BITOS = 000010 EDCHPS 0153414 RDY = 100000 TST16 §©=©004224 
1 = 000000 BITO4 = 000020 EDCHP4 013456 RESVEC= 000010 TST17 ©004524 
ADDW1i0= 000000 BITOS = 000040 EMTVEC= 30 R6 #000006 TSTe 002220 
ADOWL1= 000000 BITO6 = 000100 EM1 017022 R7 =#000007 TST20 2 
ADDW12= 000000 BITO7 = 000200 EM2 017041 SCOPE = 000004 TST21 005312 
ADDW13= 000000 BITOS = 000400 EMS 017063 SIMR = TST22 
ADOW14= 000000 BITO9 = 001000 EM4 017076 SIRR = 000120 TS123 005754 
ADDW15= 000000 BIT1 = 000002 EMS 017111 SSIMR = 000070 TST24 006144 
ADOW2 = 000000 BIT10O = EM6 017124 SSIRR = 000130 TST25 006350 
ADOWS = 000000 BITi1 = 004000 EM7 017137 STACK = 001100 TST26 006554 
ADOW4 = 000000 BIT1i2 = 010000 ENDDAT 013572 START 001402 TST27 006672 
ADDWS = 000000 BIT13 = 0 ENDPAT 013500 START1 002034 TST3 002412 
ADOW6 = 000000 BIT14 = 040000 = 104000 STKLMT= 177774 TST3O 0 =—.007010 
ADOW7 = 000000 BIT1S = 100000 ERRVEC= 001140 TST31 007102 
ADOWS = 000000 BIT2 = FALCON 017330 SWRCK 015224 TST32 © 007202 
ADOW9 = 000000 BITS = 000010 GTSWR = 1 SWREG 000176 TST33 007350 
ADEVCT= 000000 BIT4 = 000020 HT = 000011 SWwO 1 TST34 86007456 
ADEVM = 000001 BITS = 000040 Ie = 001000 SWOO = 000001 TST3S §©007556 
AENV = 000000 BIT6 = 000100 IMRLOC 001572 SwOl = TST36 4 ©007660 
NVM = 000000 BIT7 = INTFLG 0013566 SWwO2 = 000004 TST37 §©9010012 
AFATAL= 000000 BITS = IOTVEC= SWOS = 000010 TST4 
AMADR1= 000000 BIT9 = 001000 OC 0013576 SWOS4 = 000020 TST40 8§=©010144 
AMADR2= 000000 BPTVEC= 000014 ISRLOC 001374 SWwOS = 000040 TST41 010270 
AMADRS= 000000 CHPISR= 000140 KXTCHK S = 000100 TST42 86010444 
AMADR4= 000000 CIMR = 000040 KXTFLA 017344 SWO7 = TST43 §©010652 
AMAMS1= OO00000 = 000020 LASTAD= 017350 SWwOS = 000400 TST44 8§=011172 
AMAMS2= 000000 CIRR = 000100 LF = 000012 SWO9 = 001000 TST45 011500 
AMAMS3= OO00000 CISR = 000160 LMDO4 = 000200 SW1 = 000002 TST46 §=012050 
AMAMS4= 000000 CK = 104407 LMDS7 = 000240 SW10 = 002000 TST47 §©01235356 
AMSGAD= 000000 CLRCSR 013164 ad SW11 = 004000 TsTtS 
AMSGLG= 000000 CLRIRR 013254 MIMR = 000244 SWi2 = 010000 TSTSO 8 ©012546 
AMSGTY= OO00000 CR = 000015 MIRR = 000250 SWi3 = 020000 TSTS1 012664 
AMTYP1= OO00000 CRLF = 000200 MISR = 000240 SW14 = 040000 TST6 002766 
AMTYP2= 000000 CSIMR = NEXPAS 002100 SWiS = 100000 TST? 003160 
AMTYP3= 000000 CSIRMR= 0000 NEXPA1 002104 Ss ° TYPOS = 
AMTYP4= 000000 CSIRR = 000110 NXDEV 013002 SWS = 000010 TYPE = 104401 
APASS = 000000 CSISR = 000170 NXDEV1 013006 SWw4 iss 20 TYPOC = 1044 
APRIOR= DOISP = 177570 * SWS = 000040 TYPON = 104404 
APTCSU= 000040 OH1 017154 PATDAT 0135%2 SW6 8 = 000100 TYPOS = 1044035 
APTENV= 000001 OH2 017221 PIMR = SW7 XxXDP 001370 
APTSIZ= DIR = 000400 PIRQ = 177772 Swe 3== 000400 $APTHD 001000 
APTSPO= 000100 DISPLA 001142 PIRQVE= 000240 S = 001000 $ATYC 014154 
ASWREG= 000000 DISPRE 000174 = 000000 TBITVE= 14 $ATY1 0141350 
ATESTN= 000000 1 PR1 = 000040 TITLED 016726 $ATYS 014136 
* 9000000 DRCSA 001342 PR2 = 000100 TKVEC = SATY4 014146 
= 000000 DRCSB 1 PRS = 000140 TLCABL 016775 $AUTOB 001134 
AVECT1= 000000 ORCSC 001352 PRA = 000200 TPVEC = $BASE 001244 
AVECTe2= DRCSD 001356 PRS = 000240 TRAPVE= 000034 SBDADR 001122 
BE 013272 DRDOBA 001344 = 000500 TRTVEC= 000014 SBDDAT 001126 
2 0135534 OROBB 001550 PR7 = 000340 TSTNUM 0013562 sCOW1 001250 
BGCHPS 0153574 DRDBC 001354 P = 177776 TSTl 002142 sCHARC 014124 
BGCHP4 013436 DROBD 001360 PSW = 177776 TST10 003326 sCKSWR 015656 


CVDRCC ORVI1W CIAG TS! PRIL 
SYMBOL TABLE 


SERTTL 
- ABS. 


000000 
ERRORS DETECTED: 


VIRTUAL MEMORY USED: 
DYNAMIC MEMORY : 


017350 


ELAPSED TIME: 


000 


001 
0 


48544 
19748 WORDS ( 
00:03:02 
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WORDS ( 190 PAGES) 
75 PAGES) 


CVORCC ,CVDRCC/ -SP/CRF =SYSMAC ..MLB/ML ,CVDRCC .P11 


001170 


[ ¢ 
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016646 
016670 


SEG GO76 


CvDRCC 


CROSS REFERENCE 


CREATED By 


VALUE 


164160 


REFERENCES 


10-473 
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10-473 
11-528 
10-473 


10-473 


10-473 


10-473 
12-553 


11-521 


10-473 


#17-2166 
#17-2166 


17-2169 


11-S22 


11-523 


11-524 


11-525 


11 -S2é 


SEU 9OC7,; 


Cvorcc 


CROSS REFERENCE 


CREATED By 


VALUE 


000100 


000160 
104407 
013164 


REFERENCES 


10-473 
10-473 
12-815 
13-1740 


17-2179 


17-2169 
17-2179 
8-426 
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12-835 
13-1871 


17-2179 
17-2169 


12-855 
13-1928 


#16-2112 


17-2179 


12-647 


12-640 
13-902 


13-1447 
13-1751 


17-2176 
12-729 

13-1000 
13-1388 
13-1627 


13-946 


#16 -2061 


12-661 


12-647 
13-930 


13-1638 
13-1752 


17-2179 


13-1001 


12-668 


12-661 
13-958 


13-1812 


@17-2184 


13-1675 


13-1055 


12-688 


12-668 
13-965 


13-1815 


13-1734 


13-1107 


13-1872 


12-741 


12 -688 
13-1065 


13-1882 


12-834 

13-1187 
15-1486 
13-1795 


13-1524 


13-1873 


13-958 


12-733 
13-1072 


13-1885 


16 


CvORCC CREATED BY MACRO ON 27-DEC-83 AT 09:56 PAGE 3 
SEu oc’ 

SYMBOL CROSS REFERENCE CREF vOl 

SYMBOL. VALUE REFERENCES 
13-1665 13-1927 13-1965 13-1985 415-2030 

CLRIRR 013254 13-1161 13-1191 13-1232 13-1279 13. 1469 13-1490 13-1512 13-1541 13-1569 
13-1597 13-1633 13-1669 15-2045 

CR = 000015 08-423 17-2165 17-2165 

CRLF = 000 08-423 17-2165 37-2165 

CSIMR 08-435 13-1416 

CSIRMR = 0000 #6 -432 13-1600 

CSIRR * 000110 08-440 13-1516 

CSISR * 000170 08 -446 

DOI * 177570 06-425 10-475 12-544 

OH1 017154 11-476 11-482 11-488 11-494 11-500 11-506 11-513 17-2199 

OH2 017221 #17-2200 

DIR . -427 12-625 12-702 12-733 12-768 13-958 13-1015 13-1065 13-1119 

DISPLA 001142 910-4753 #12-544 #12-544 17-2169 17-2179 

DISPRE 000174 08 -462 12-544 

001364 11-534 #12-5835 #12-584 12-587 #14-2015 14-2017 

DRCSA 001342 #11-S2i #12 -586 12-590 12-606 12-619 12-657 12-078 12-731 12-798 
13-946 13-1005 13-1056 13-1159 13-1188 13-1255 13-1276 13-1322 13-1347 
13-1371 13-1390 13-1411 13-1440 13-1467 13-1488 13-1510 13-1539 13-1567 
13-1595 13-1667 13-1674 13-1678 13-1682 13-1860 13-1930 13-1964 14-2011 
15-2031 15-2046 

ORCSB 001346 #11-523 12-699 12-766 12-817 13-950 13-1003 13-1110 13-1160 13-1189 
13-1254 13-1277 13-1323 13-1348 13-1372 13-1391 13-1412 13-1441 13-1468 
13-1489 13-1511 13-1540 13-1568 13-1596 13-1668 13-1675 13-1661 13-1931 
13-1965 15-2032 

ORCSC 001352 #11-S525 12-620 12-658 12-730 12-837 13-949 13-1055 13-1111 13-1162 
13-1226 13-1270 13-1315 13-1339 13-1364 13-1383 13-1405 13-1431 13-1460 
13-1480 13-1502 13-1531 13-1 13-1587 13-1622 13-1665 13-1679 13-1685 
13-1728 13-1858 13-1986 15-2035 

ORCSO 001356 #11-527 12-700 12-765 12-857 13-1004 13-1057 13-1109 13-1183 13-1227 
13-1271 13-1314 13-1340 13-1365 13-1384 13-1404 13-1432 13-1461 13-1481 
13-1503 13-1532 13-1561 13-1588 13-1625 13-1666 13-1729 13-1859 13-1932 
13-1987 15-2034 

DROBA 001344 #11-S522 12-799 13-960 13-1040 13-1079 

DROBB 001350 #11-524 12-816 13-988 13-1032 13-1130 

OROBC 001354 #11-526 12-8 13-972 13-1087 13-1146 

OROBD 1 #11-528 12-593 12-856 13-1024 13-1095 13-1158 

OSWR = 177570 08-423 10-473 12-544 

OT1 017276 11-477 11-465 11-489 11-495 11-501 11-507 11-514 #17-2203 

OT2 017312 @17-2204 

EOCHP1 13314 13-1719 16-2070 

EOCHP2 133 #16-2085 

EOCHPS 013414 13-1454 13-1554 #16-2105 

EOCHP4 013456 13-1425 13-1525 13-1616 16-2120 

EMTVEC = 000030 08-423 #12-544 #12-544 

EM1 017022 11-475 17-2192 

EM2 017041 11-481 #17-2195 

EMS 017063 11-487 #17-2194 

EM4 017076 11-495 #17-2195 

EMS 017111 11-499 017-2196 

EM6 017124 11-505 #17-2197 

EM? 017137 11-5l2 #17-2198 


CvORCC CREATED BY MACRO ON 27-DEC-85 AT 09:56 PAGE 4 
SEG 0074 
SYMBOL CROSS REFERENCE CREF vOl 
SYMBOL VALUE REFERENCES 
ENODAT 013572 12-610 12-829 12-849 12 -869 13-995 15-1047 13-1102 13-1155 13 1.355 
3-1 13-1790 13-1921 13-1958 16-2160 
ENOPAT 013500 #16-2129 
ERROR * 104000 96-425 12-615 12-631 12 -638 le -646 12-655 le -667 12-674 le -687 
12-694 12-707 i2-713 12-720 12-726 12-739 12-746 12-754 le-761 
12-773 12-779 12-786 12-792 12-808 12-827 12-847 12-867 13-888 
13-894 13-900 13-907 13-928 13-935 13-941 13-964 13-971 13-977 
13-987 13-993 13-1017 13-1025 13-1029 13-1039 13-1045 13-1071 13-1076 
13-1 13-1094 13-1100 13-1125 13-1129 13-1135 13-1145 13-1151 13-1168 
13-1174 13-1179 13-1200 13-1206 13-1212 13-1217 13-1225 13-1244 13-1250 
13-1255 13-1260 13-1267 13-1287 13-1293 13-1299 13-1 13-1310 13-1335 
13-1356 13-1380 13-1400 13-1425 13-1452 13-1477 13-1499 13-1525 13-1552 
13-1579 13-1584 13-1609 13-1614 13-1644 13-1650 13-1656 13-1661 13-1694 
13-1702 13-1710 13-1717 13-1762 13-1770 13-1776 13-1782 13-1786 13-1821 
13-1827 13-1842 13-1854 13-1895 13-1901 13-1907 13-1913 13-1919 13-1947 
13-1956 13-1975 13-1981 13-1997 13-2003 
ERRVEC = 000004 08-423 12-544 412-544 #12-544 12-605 12-616 #12-616 17-2179 9617-2179 
#17-2179 617-2179 
FALCON 0173550 12-548 #18 -2222 
S * 00066 -462 8-462 17-2184 17-2184 17-2184 17-2184 17-2184 17-2184 17-2184 
17-2164 17-2184 17-2184 17-2184 17-2184 17-2184 17-2184 17-2184 17-2184 
17-2164 17-2184 
GTSWR = 104406 12-561 #17-2184 
HT * 000011 08-423 17-2165 17-2165 
Ie = 001 08-426 12-662 13-1966 
I 001372 11-537 #13-1685 13-1704 #13-1722 
INTFLG 1 #11-5355 
IOTVEC = -423 #12-544 412-544 
IRRL 001376 11-539 #13-1686 13-1689 413-1721 
ISRLOC 001374 11-536 
KX T CHK 00 18-222 #18-2231 
KXTFLA 017344 13-1837 13-1649 18-2226 418-2231 18-2259 
LASTAD = 017350 #19-22864 
LF . 12 06-423 17-2165 17-2165 
L * 000200 08-448 
LMDS7 8§=©» 000240 06-449 
MACR = 000254 66-455 13-1175 13-1194 13-1219 13-1245 13-1300 13-1326 13-1659 ~. 
MIMR = 000244 06-455 13-1164 13-1201 13-1238 13-1262 13-1288 13-1351 13-1375 £3-1594 
13-1415 13-1444 13-1560 13-1610 13-1645 13-1713 
MIRR = 000250 @8-454 13-1170 13-1213 13-1 13-1262 13-1306 13-1472 13-1493 13-1515 
13-1544 13-1572 13-1602 13-1657 13-1698 15-1747 13-1748 13-1832 13-1845 
13-1878 13-1879 13-1942 13-1949 
MISR = 000240 08-452 13-1207 13-1251 13-1294 13-1651 
NE XPAS 002100 12- #12-590 14-2019 
NE XPA1 002104 12-591 12-594 
NXDE V 013002 #14-2011 
NXDE V1 013006 12-589 414-2012 14-2018 
PACR ° 300 08-458 13-1195 13-1327 13-1635 
PATDAT 013502 #16-21 
PIMR * 08-459 13-1239 13-1352 
PIRQ * 177772 08-423 
PIRQVE = 08-423 


CvORCC 


SYMBOL CROSS REFERENCE 


SYMBOL 


CREATED By 


VALUE 


u 


REFERENCES 


12-598 
8-425 


17-2182 
#12-544 
#17-2184 


12-625 
13-958 


MACRO ON 27-DEC-83 A’ 09:56 


412-544 
12-640 
13-1013 

412-544 


#12-544 
17-2179 


17-2160 


#17-2181 


13-1518 


17-2181 
12-544 

17-2179 
17-2180 


17-2181 


12-702 
13-1119 


13-1 
13-1573 


#12-544 
17-2179 


17-2181 


12-715 


#12-544 
17-2180 


#17-2181 
12-733 
12-728 
13-999 


13-1366 
13-1591 


13-1637 


17-2169 
17-2180 


17-2181 


12-748 


12-763 

13-1051 
13-1387 
13-1626 


17-2169 
17-2181 


17-2181 


12.768 


12-794 

13-1105 
13-1407 
13-1672 


17-2169 
17-2161 


CvORCC 


CREATED Br 


CROSS REFERENCE 


VALUE 


ert 
a 


011172 


REFERENCES 


13-1665 
13-1727 


MACRO ON 27-DEC-83 A’ 09:56 


#17-2189 
#17-2190 
12-544 
#17-2174 
12-794 


#13-1733 


17-2204 


rit, 


CvDRCC CREATED By MACRO ON 27-DEC-83 AT 09:56 PAGE 7 
SEG 0077 
SYMBOL CROSS REFERENCE CREF vol 
SYMBOL VALUE REFERENCFS 
TST45 011500 13-1794 
TST46 012030 13-1856 #13-1864 
TST47 012336 13-1926 
TSTS 002620 12-693 12-697 
TSTSO 012546 13-1962 
TSTS1 012664 13-1980 13-1984 
TST6 002766 12-725 12-728 
TST? 003160 12-760 12-763 
TYPOS 104405 14 - 417-2184 
TYPE 104401 12-575 12-576 14-2020 14-2020 17-2165 17-2167 17-2168 17-2169 17-2178 
17-2178 17-2178 17-2178 17-2178 17-2178 17-2178 17-2180 17-2180 17-2160 
17-2180 17-2180 17-2180 17-2180 17-2180 17-2180 17-2181 917-2184 
TYPOC 104402 17-2178 17-2178 17-2180 #17-2184 
TYPON 104404 17-2184 
TYPOS 104403 17-2184 
xXDP 001370 11-536 #12-562 12-573 
SAPTHO 1 9-472 9-472 
SASTAT 666006 17-2166 17-2166 
SATYC 014154 17-2166 #17-2166 
SATY1L 014130 417-2166 
$ATYS 014136 17-2165 #17-2166 
SATY4 014146 #17-2166 17-2169 
sAUTOB 001134 10-473 412-566 12-571 12-579 17-2180 17-2180 17-2180 
s$BASE 001244 #10-473 12-553 «12-555 12-585 
s$BDADR 001122 10-473 #12-608 #12-623 12-632 #12-639 #12-660 12-679 12-701 12-708 
#12-714 412-732 12-740 #12-747 12-767 12-774 12-780 12-800 12-819 
412-839 12-859 #13-882 #13-889 #13-895 #13-901 #13-917 #13-923 #13-929 
213-936 413-952 13-966 #13-972 #13-980 #13-988 13-1007 13-1019 13-1024 
#13-1032 *13-1040 413-1059 413-1073 #13-1079 «13-1087 13-1095 13-1113 13-1125 
#13-1130 413-1138 413-1146 #13-1162 #13-1192 413-1236 213-1280 413-1325 13-1350 
#13-1373 413-1392 413-1415 +#13-1442 #13-1470 413-1491 #13-1513 13-1542 13-1570 
13-1598 413-1634 #13-1687 413-1696 #13-1703 413-1711 13-1757 #13-1763 13-1816 
#13-1822 «13-1631 #13-1844 #13-1868 413-1894 #13-1941 13-1948 #13-1968 13-1977 
#13-1990 413-1998 17-2203 17-2204 ' 
sBODAT 001126 10-473 12-596 15-2030 17-2203 17-2204 
$COwl 1 10-473 
$CHARC 014124 17-2165 +%17-2165 17-2165 #17-2165 17-2165 
s$CKSWR 56 17-2180 17-2184 17-2184 
sCMTAG 001100 #10-473 12-544 12-544 12-544 12-544 12-544 12-544 
$CmM3 10-473 10-473 
sCNTLG 016413 17-2180 #17-2180 
SCNTLU 016406 17-2180 #17-2180 
4 001216 10-473 
sCRLF 001165 #10 -473 17-2165 17-2165 17-2165 17-2169 17-2169 17-2169 17-2178 17-2178 
17-2178 17-2178 17-2180 17-2180 17-2180 
$08LK 015040 17-2168 17-2168 #17-2168 
sOEVCT 001200 #10-473 12-597 
sDEVM 001246 #10-473 12-583 
3 013140 14- 14-2020 414-2020 
sOTBL 015030 17-2168 #17-2168 
sENDAD 013130 9-467 14-2020 
sENDCT 013076 14-2020 


sEOPCT 


sGET42 
sGTSwR 


CREATED BY 


CROSS REFERENCE 


VALUE 
013147 


013120 
015726 


MACRO ON 27-DEC-83 AT 09:56 PAGE 8 
CREF vol 
REFERENCES 
14-2020 914-2020 
14-2020 14-2020 
410-473 12-564 17-2165 17-2166 
@10-473 12-544 17-2165 17-2165 
14-2014 414-2020 
14-2020 14-2020 
010-473 #17-2169 17-2169 17-2169 
17-2179 
10-473 12-544 17-2179 #17-2179 
12- 17-2169 
10-473 417-2169 17-2169 17-2169 
#11-473 17-2178 
17-2175 417-2178 
10-4753 #17-2169 17-2169 17-2169 
010-473 *12- 17-2169 17-2169 
10-473 
9-47 10-473 
410-473 #12-545 #17-2166 
#17-2166 +17-2166 17-2166 417-2166 
10-473 17-2165 17-2165 17-2165 
010-473 17-2165 17-2165 
419-2278 19-2279 
010-473 17-2 
10-473 #12-603 #12-625 12-629 
12-651 412-661 12-665 #12-668 
#12-702 12-705 12-709 12-711 
12-737 412-741 12-744 12-748 
12-775 12-777 12-7861 12-7 
12-825 12-8641 12-845 12-861 
#13-896 13-898 #13-902 13-905 
13-933 #13-937 13-939 #13-958 
#13-978 13-981 13-985 #13-989 
#13-1025 13-1027 #13-1030 13-1033 
#13-1072 13-1076 «13-1080 13-1 
#13-1119 13-1121 #13-1124 13-1127 
#13-1147 13-1149 +#13-1163 13-1166 
13-1198 «13-1202 13-1204 #13-1208 
13-1242 «13-1246 13-1248 13-1255 
13-1289 13-1291 «13-1295 13-1297 
13-1356 413-1374 13-1378 413-1393 
13-1471 13-1475 +%13-1492 13-1497 
13-1577 13-1562 13-1601 13-1607 
#13-1652 13-1654 13-1659 +413-1688 
13-1708 +#13-1712 13-1715 13-1756 
#13-1772 13-1774 13-1778 13-1780 
*#13-18633 13-1835 413-1839 13-1840 
13-18 #13-1895 413-1896 +13-1897 
#13-1915 13-1917 #13-1943 13-1945 
13-1973 4«13-13976 13-1979 «13-1991 
17-2204 
#14-2020 
#17-2180 17-2184 17-2184 


Né, 


17-2166 
17-2166 


17-2179 


17-2179 


17-2169 


17-2169 


#17-2166 


#12-633 


17-2169 
17-2179 
17-2179 


17-2169 


17-2169 


1 
#13-1999 


17-2179 


17-2178 


#17-2179 


#12-640 


17-2179 


17-2205 


4 
15-2035 


17-2179 


17-2204 


413-1969 
17-2203 


SEG OC 74 


Cvorcc CREATED Br MACRO ON 27-DEC-85 AT 09:56 PAGE 9 


SYMBOL CROSS REFERENCE CREF vol 

SYMBOL VALUE REFERENCES 

so * 000005 8-414 8-414 8-414 

SHIBTS 001000 09-472 

sICnt 001104 10-473 17-2179 17-2179 017-2179 17-2179 17 2179 

SILive 016606 17-2161 17-2161 17-2181 

SINTAG 001135 10-475 17-2180 37-2180 17-2180 

sITEms 001114 @10-473 17-2169 17-2169 17-2169 17-2169 17-2178 

LF 001166 10-473 17-2165 17-2165 17-2169 17-2169 17-2180 17-2180 17-2180 

SLFLG 0143753 17-2166 17-2166 

SL PADR 001106 10-473 12-544 17-2179 17-2179 17-2179 17-2179 17-2179 

SL PERR 001110 10-475 012-544 12-797 12-816 #12 -836 #12 -856 013-947 13-1002 13-1054 
13-1108 13-1321 13-1346 13-1410 13-1439 13-1509 13-1538 13-1594 13-1739 
13-1870 13-1929 17-2169 17-2179 17-2179 17-2179 17-2179 





001222 910-475 
001226 #10-475 
001232 #10-475 
001236 #10-475 
001170 9-472 9-472 910-473 12 -544 17-2165 17-2169 17-2179 
001220 @10-473 
001224 #10-473 
001250 @10-475 
34 @10-475 
001002 69-472 
014572 17-2166 17-2166 417-2166 17-2166 
016431 17-2180 17-2160 
1 010-475 17-2166 17-2166 
001206 @10-473 17-2166 
001170 #10-475 12-546 17-2166 417-2166 17-2166 17-2166 
016420 17-2180 17-2180 
001221 #10-473 
001225 #10-475 
001231 910-475 
001235 @10-475 
015654 17-2179 17-2179 17-2179 17-2179 
001154 @10-475 17-2165 17-2165 17-2165 
* 000001 #12-602 12-602 #12 -602 #12-6168 12-618 #12-616 #12-655 12-655 12-655 
#12-676 12-676 912-676 @12-697 12-697 @12-697 #12-726 12-728 12-728 
12-763 12-763 12-7635 @12-794 12-794 #12-794 #12-815 12-815 #12-615 
#12-833 12-835 #12-833 12-853 12-853 12-853 #13-874 13-674 #15-674 
@13-909 13-909 #13- @13-944 13-944 13- @13-999 13-999 #13-999 


€13-1387 i3-1 13-1367 13-1407 13-1407 13-1407 13-1436 13-1436 135-1456 
13-1464 13-1464 135-1464 15-1485 13-1465 15-1485 15-1506 13-1506 13-1506 
13-1535 13-1535 013-1555 13-1564 13-1 #13-1564 15-1591 13-1591 13-1591 


564 
13-1626 13-1626 13-1626 13-1672 13-1672 @13-1672 15-1755 13-1735 13-1755 
013-1794 13-1794 13-1794 415-1864 13-1664 15-1864 415-1926 13-1926 13-1926 
#13-1962 13-1962 13-1962 15-1964 13-1964 #15-1964 


sOCNT 014620 17-2167 617-2167 17-2167 
$ OMODE 014622 17-2167 17-2167 17-2167 417-2167 617-2167 17-2167 
sOVER 015640 17-2179 17-2179 17-2179 17-2179 17-2179 


sPASS 001176 010-473 12-544 #14-2020 414-2020 14 -2020 14-2020 14-2020 17-2179 17-2179 


$PWRAD 


SSWREG 
$ SWRMK 


STESTN 
sTIMES 
$TKB 
sTKS 
$TN 


CROSS REFERENCE 


CREATED 8 


0000 

013142 
eeeees 
eeeeee 
016612 
015376 
000117 


177777 
015604 


017350 
165400 


001212 
000000 


001174 
001160 


001146 
001144 
000052 


MACRO ON 27 DEC -83 AT 09:56 


REFERENCES 


17-2179 
09-472 


3 
12-833 


#17-2161 
#17-2181 
17-2165 
17-2184 
17-2184 


17-2180 


-422 
17-2179 


#12-547 
12-544 


17-2165 


12-763 
12-833 


17-2181 
17-2165 
17-2184 
17-2184 


17-2181 
@12-S542 


8-422 
17-2179 


17-2179 
#13-1962 


17-2165 


17-2165 
17-2160 


#12-835 


17-2169 


17-2181 
12-542 


@12-542 


17-2179 
8-422 
17-2179 


413-1984 


12-855 


17-2169 


17-2161 
12-542 
12-544 


@12-542 


17-2179 
8-422 
17-2179 
#14-2020 
17-2165 


17-2180 


12-542 
12-544 


17-2161 
8-422 
17-2179 


17-2179 
17-2180 


#12-855 


17-2180 


12-542 


17-2179 
17-2179 


8-422 
17-2179 


17-2179 
17-2180 


13-874 


17-2180 


12-542 
12-544 
17-2169 


@12-S42 


17-2169 
17-2179 
17-2179 


17-3179 
17-2179 
17-2180 
17-2180 
12-618 


13-874 


1”’-2180 


@12-S542 


12-544 
17-2169 


12-542 


17-2179 


7-51.79 
17-2179 
17-2180 
17-2180 
012-618 


0135-874 


SE 9040 


Cvorcc 


SYMBOL CROSS REFERENCE 


S’MBOL 


$TRPAD 
sTSTM 
sTSTNM 


sTTYIN 


CREATED BY 


VALUE 


000000 
014621 


= 001000 


MACRO ON 27-DEC-8% At 


REFERENCES 


#17-2184 


#14-2020 
17-2179 
17-2180 


17-2184 


17-2165 
17-2165 


14-2020 
17-2167 
17-2179 
17-2166 
9-472 


09:56 


17-2179 


17-2180 


17-2167 


17-2165 
17-2165 


17-2169 
17-2179 
#17-2180 


17-2184 
@17-2165 


#14-2016 


#17-2167 


#13-1051 
86 


917-2184 


17-2169 


17-2180 


0135-944 
13-1105 
13-1230 


#17-2179 


SE a OLA ‘ 


E / 


CvDRCC CREATED By MACRO ON 27-DEC-83 AT 09:56 PAGE 12 
SEU 9042 

MACRO CROSS REFERENCE CREF vOl 

MACRO NAME REF ERENCES 

COMMEN 06 -423 

ENOCOM 06 -423 

ESCAPE 06-423 

GE TPRI 06 -423 

GE TSwR 96-423 

y 8 -423 

NEWT ST 66 -423 12-602 12-618 12-655 12-676 12-697 12-728 12-763 12-794 12-815 
12-835 12-855 13-874 13-909 13-944 13-999 13-1051 13-1105 13-1156 13-1186 
13-1230 13-1274 13-1318 13-1343 13-1368 13-1387 13-1407 13-1436 13-1464 13-1485 
13-1506 13-1535 13-1 13-1591 13-1626 13-1672 13-1733 13-1794 13-1864 15-1926 
13-1962 13-1984 

POP 96-423 17-2166 17-2166 17-2168 17-2181 17-2181 

PUSH 06 -423 17-2166 17-2166 17-2166 17-2168 17-2161 17-2181 

REPORT 08-425 

SETPRI 06 -423 

SETTRA 017-2184 17-2184 17-2184 17-2184 17-2184 17-2184 17-2184 17-2184 17-2184 17-2184 

SETUP 08 -423 12-544 

SKIP 06 -423 12-645 12-652 12-673 12-695 12-719 12-725 12-753 12-760 12-785 
12-791 13-906 13-940 13-1161 13-1225 13-1269 13-1312 13-1358 13-1363 13-1362 
13-1402 13-1430 13-1459 13-1479 13-1501 13-1530 13-1559 13-1586 13-1621 13-1665 
13-1727 13-1856 13-1980 

SLASH 98-423 

STARS 08-423 9-467 9-472 9-472 9-472 10-473 10-473 10-473 12-602 12-602 
12-616 12-618 12-655 12-655 12-676 12-676 12-697 12-697 12-728 12-728 
12-765 12-763 12-794 -794 12-815 12-815 12-833 12-833 12-853 12-853 
13-874 13-874 13-909 13-909 13-944 13-944 13-999 13-999 13-1051 13-1051 
13-1105 13-1105 13-1156 13-1156 13-1186 13-1186 13-1250 13-1250 13-1274 13-1274 
13-1316 13-1316 13-1343 13-1343 13-1368 13-1368 13-1387 13-1387 13-1407 13-1407 
13-14 13-1456 13-1464 13-1464 13-1485 13-1485 13-1506 13-1506 13-1535 13-1555 
13-1564 13-1 13-1591 13-1591 13-1626 13-1626 13-1672 13-1672 13-1735 13-1735 
13-1794 13-1794 13-1864 13-1864 13-1926 13-1926 13-1962 13-1962 13-1984 13-1984 
14-2020 : 15-2029 17-2165 17-2166 17-2167 17-2168 17-2169 17-2170 17-2173 
17-2178 17-2179 17-2180 17-2180 17-2180 17-2180 17-2181 17-2181 17-2184 

SWRSU 08-423 @12-544 12-544 

TRMTRP #17-2184 

TYPBIN 086-423 

TYPDEC 98-423 14-2020 

TYPNAM 68-423 

TYPNUM 08-423 

TYPOCS 086 -408 08-423 

YPOCT #8 -423 17-2178 17-2178 17-2160 

TYPTXT 08-423 

$$ @9-473 

$$CMTM 09-473 

$SESCA 08-423 

$ SNEWT 08-423 -602 12-618 12-655 12-676 12-697 12-728 12-763 12-794 12-815 
12-833 12-855 13-874 13-909 13-944 13-999 13-1051 13-1105 13-1156 13-1186 
13-1250 13-1274 13-1318 13-1345 13-1368 13-1587 13-1407 13-1436 13-1464 13-1485 
he sy 13-1564 13-1591 13-1626 13-1672 13-1733 13-1794 13-1664 13-1926 

$sSET 017-2184 17-2184 17-2184 17-2184 17-2184 17-2184 17-2184 17-2184 17-2184 17-2164 

$sSETM #12-544 12-544 


CvDRCC 


CREATED BY 


MACRO CROSS REF ERENCE 


MACRO NAME 


REF ERENCES 


17-2181 


17-2180 
17-2179 
17-2184 
17-2168 
17-2165 
17-2167 


MACRO ON 27-DEC-83 AT 09:56 


12-673 
13-1312 
13-1559 


i0-473 


F7 


PAGE 15 


vol 


12-725 
13-1365 
13-1621 


13-1663 


12-791 
13-1402 
13-1727 


13-906 
13-1430 
13-1856 


13-940 
13-1459 
15-1980 


SEG 9C4 


.3-1181 
13-1479 


